swig/Examples/test-suite/ocaml/inherit_missing_runme.ml
Zackery Spytz 35e417a4db [OCaml] Runtime tests for default_arg_values, inherit_missing and some others
Add runtime tests for default_arg_values, inherit_missing,
memberin_extend, rename_predicates, template_inherit,
template_tbase_template, and typedef_classforward_same_name.
2019-02-01 12:59:29 -07:00

10 lines
302 B
OCaml

open Swig
open Inherit_missing
let _ =
let a = _new_Foo '() and b = new_Bar '() and c = new_Spam '() in
assert (_do_blah '(a) as string = "Foo::blah");
assert (_do_blah '(b) as string = "Bar::blah");
assert (_do_blah '(c) as string = "Spam::blah");
assert (_delete_Foo '(a) = C_void)
;;