diff options
-rwxr-xr-x | Examples/test-suite/ocaml/makedebugtop | 2 | ||||
-rw-r--r-- | Examples/test-suite/ocaml/name_runme.ml | 8 |
2 files changed, 9 insertions, 1 deletions
diff --git a/Examples/test-suite/ocaml/makedebugtop b/Examples/test-suite/ocaml/makedebugtop index 8d712801c..4a64bb74e 100755 --- a/Examples/test-suite/ocaml/makedebugtop +++ b/Examples/test-suite/ocaml/makedebugtop @@ -18,4 +18,4 @@ echo "Making the test" make $swigtest echo "Building ${thetest}_top" gcc -c -g $cppopt -I$OCAMLINC ${thetest}_wrap.c -ocamlmktop -cclib -g -custom ${thetest}_wrap.o ${thetest}.cmo -o ${thetest}_top +ocamlmktop -cclib -g -custom ${thetest}_wrap.o ${thetest}.cmo -o ${thetest}_top -cclib -lstdc++ diff --git a/Examples/test-suite/ocaml/name_runme.ml b/Examples/test-suite/ocaml/name_runme.ml new file mode 100644 index 000000000..902466c69 --- /dev/null +++ b/Examples/test-suite/ocaml/name_runme.ml @@ -0,0 +1,8 @@ +open Name + +let _ = if (get_int _Baz_2) - (get_int (_bar_2 C_void)) == 30 +then + exit 0 +else + exit 1 + |