75808b52ea
Changed test case runme line a bit to link swig.cmo. git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@5207 626c5289-ae23-0410-ae9c-e8d60b6d4f22
11 lines
284 B
OCaml
11 lines
284 B
OCaml
(* 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")
|