jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

The great merge

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@4141 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Dave Beazley 2002-11-30 22:01:28 +00:00
commit 12a43edc2d
1508 changed files with 125983 additions and 44037 deletions
Download patch file Download diff file Expand all files Collapse all files

25
Examples/test-suite/ocaml/newobject1_runme.ml Normal file
View file

@ -0,0 +1,25 @@
open Newobject1
exception RuntimeError of string * int
let foo1 = ref (_Foo_makeFoo C_void)
let _ = if get_int (_Foo_fooCount C_void) != 1 then
raise (RuntimeError ("(1) Foo.fooCount != 1",
get_int (_Foo_fooCount C_void)))
let foo2 = ref ((invoke !foo1) "makeMore" C_void)
let _ = if get_int (_Foo_fooCount C_void) != 2 then
raise (RuntimeError ("(2) Foo.fooCount != 2",
get_int (_Foo_fooCount C_void)))
let _ = begin
foo1 := C_void ; Gc.full_major () ;
(if get_int (_Foo_fooCount C_void) != 1 then
raise (RuntimeError ("(3) Foo.fooCount != 1",
get_int (_Foo_fooCount C_void)))) ;
foo2 := C_void ; Gc.full_major () ;
(if get_int (_Foo_fooCount C_void) != 0 then
raise (RuntimeError ("(4) Foo.fooCount != 0",
get_int (_Foo_fooCount C_void)))) ;
end