swig/Examples/test-suite/ocaml/using_extend_runme.ml
Zackery Spytz f78358d9aa [OCaml] Runtime tests for template_opaque, using_extend and some others
Add runtime tests for namespace_virtual_method, template_opaque,
using_extend, using_inherit, using_pointers, using_private, and
varargs_overload.
2019-01-27 06:50:51 -07:00

12 lines
323 B
OCaml

open Swig
open Using_extend
let _ =
let f = new_FooBar '() in
assert (f -> blah (3) as int = 3);
assert (f -> blah (3.5) as float = 3.5);
assert (f -> blah ("hello") as string = "hello");
assert (f -> blah (3, 4) as int = 7);
assert (f -> blah (3.5, 7.5) as float = 11.);
assert (f -> duh (3) as int = 3)
;;