/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 

    

  1. (* Test case stolen from the python directory *)
    2. 

  2. 

  3. open Swig
    4. 

  4. open Varargs
    5. 

  5. 

  6. let _ = if _test (C_string "Hello") <> (C_string "Hello") then
    7. 

  7.     raise (Failure "1")
    8. 

  8. 

  9. let f = new_Foo C_void
    10. 

  10. let _ = if (invoke f) "test" (C_string "Hello") <> (C_string "Hello") then
    11. 

  11.     raise (Failure "2")
    12.