diff options
Diffstat (limited to 'Examples/test-suite/ocaml/class_ignore_runme.ml')
| -rw-r--r-- | Examples/test-suite/ocaml/class_ignore_runme.ml | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/Examples/test-suite/ocaml/class_ignore_runme.ml b/Examples/test-suite/ocaml/class_ignore_runme.ml new file mode 100644 index 0000000..5189305 --- /dev/null +++ b/Examples/test-suite/ocaml/class_ignore_runme.ml @@ -0,0 +1,7 @@ +open Swig +open Class_ignore + +let a = new_Bar C_void +let _ = (if _do_blah a <> C_string "Bar::blah" then + raise (Failure "We didn't really get a bar object.")) + |