1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
open Swig
open Overload_bool
let _ =
assert (_overloaded '(true) as string = "bool");
assert (_overloaded '(false) as string = "bool");
assert (_overloaded '(0) as string = "int");
assert (_overloaded '(1) as string = "int");
assert (_overloaded '(2) as string = "int");
assert (_overloaded '("1234") as string = "string");
assert (_boolfunction '(true) as string = "true");
assert (_boolfunction '(false) as string = "false");
assert (_intfunction '(true) as string = "int");
assert (_intfunction '(false) as string = "int");
assert (_overloaded_ref '(true) as string = "bool");
assert (_overloaded_ref '(false) as string = "bool");
assert (_overloaded_ref '(0) as string = "int");
assert (_overloaded_ref '(1) as string = "int");
assert (_overloaded_ref '(2) as string = "int");
assert (_overloaded_ref '("1234") as string = "string");
assert (_boolfunction_ref '(true) as string = "true");
assert (_boolfunction_ref '(false) as string = "false");
assert (_intfunction_ref '(true) as string = "int");
assert (_intfunction_ref '(false) as string = "int");
;;
|
