Added some tests to mimic the ones in the python directory. Working my
way through the alphabet. git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@4519 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
parent
4292b470bb
commit
448c3c62ab
4 changed files with 24 additions and 180 deletions
7
Examples/test-suite/ocaml/using_protected_runme.ml
Normal file
7
Examples/test-suite/ocaml/using_protected_runme.ml
Normal file
|
|
@ -0,0 +1,7 @@
|
|||
open Using_protected
|
||||
|
||||
let f = new_FooBar C_void
|
||||
let _ = (invoke f) "x" (C_int 3)
|
||||
|
||||
let _ = if (invoke f) "blah" (C_int 4) <> (C_int 4) then
|
||||
raise (Failure "blah(int)")
|
||||
Loading…
Add table
Add a link
Reference in a new issue