PageRenderTime 119ms CodeModel.GetById 5ms RepoModel.GetById 0ms app.codeStats 0ms

/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. 

  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. 

  12.