| (* Test case stolen from the python directory *) | |
| open Swig | |
| open Varargs | |
| let _ = if _test (C_string "Hello") <> (C_string "Hello") then | |
| raise (Failure "1") | |
| let f = new_Foo C_void | |
| let _ = if (invoke f) "test" (C_string "Hello") <> (C_string "Hello") then | |
| raise (Failure "2") |