/tags/rel-1-3-25/SWIG/Examples/test-suite/ocaml/varargs_runme.ml
OCaml | 11 lines | 7 code | 3 blank | 1 comment | 2 complexity | f44f03ae66be92f91a68aaf487ed8bef MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0
1(* Test case stolen from the python directory *) 2 3open Swig 4open Varargs 5 6let _ = if _test (C_string "Hello") <> (C_string "Hello") then 7 raise (Failure "1") 8 9let f = new_Foo C_void 10let _ = if (invoke f) "test" (C_string "Hello") <> (C_string "Hello") then 11 raise (Failure "2")