13 lines
323 B
OCaml
13 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)
|
|
;;
|