blob: 0303ba2a32ea93e7736da4129f012b1f8b742473 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
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);
;;
|