27 lines
1.1 KiB
OCaml
27 lines
1.1 KiB
OCaml
|
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");
|
||
|
|
;;
|