12 lines
303 B
OCaml
12 lines
303 B
OCaml
|
open Swig
|
||
|
|
open Overload_method
|
||
|
|
|
||
|
|
let _ =
|
||
|
|
let b = new_Base '() in
|
||
|
|
assert (b -> "method" () as int = 42);
|
||
|
|
assert (b -> "overloaded_method" () as int = 42);
|
||
|
|
assert (b -> "overloaded_method" (5) = C_void);
|
||
|
|
assert (b -> "overloaded_method" () as int = 5);
|
||
|
|
assert (b -> "method" () as int = 5);
|
||
|
|
;;
|