diff options
Diffstat (limited to 'Examples/test-suite/ocaml/class_ignore_runme.ml')
-rw-r--r-- | Examples/test-suite/ocaml/class_ignore_runme.ml | 6 |
1 files changed, 6 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 000000000..846643aa8 --- /dev/null +++ b/Examples/test-suite/ocaml/class_ignore_runme.ml @@ -0,0 +1,6 @@ +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.")) + |