swig/Examples/test-suite/ocaml/fvirtual_runme.ml
Zackery Spytz f71ee5be67 [OCaml] Runtime tests for fvirtual, overload_polymorphic and some others
Add runtime tests for conversion, extend_typedef_class,
extend_constructor_destructor, fvirtual, overload_polymorphic,
template_rename, and using1.
2019-01-17 15:58:48 -07:00

10 lines
264 B
OCaml

open Swig
open Fvirtual
let _ =
let sw = new_NodeSwitch '() and n = new_Node '() in
assert (n -> addChild (n) as int = 1);
assert (sw -> addChild (n) as int = 2);
assert (sw -> addChild (sw) as int = 2);
assert (sw -> addChild (n, false) as int = 3)
;;