blob: 3793cdbb0405656ee1728150912a0ff5d96f6d6a (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
open Swig
open Overload_extend
let _ =
let f = new_Foo '() in
assert (f -> test () as int = 0);
assert (f -> test (3) as int = 1);
assert (f -> test ("hello") as int = 2);
assert (f -> test (3., 2.) as float = 5.);
assert (f -> test (3.) as float = 1003.)
;;
|
