blob: 50b2b1f332c812b7e2d9dfbf60e5f06aa3e9ee3f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
open Swig
open Special_variable_macros
let _ =
let name = new_Name '() in
assert (_testFred '(name) as string = "none");
assert (_testJack '(name) as string = "$specialname");
assert (_testJill '(name) as string = "jilly");
assert (_testMary '(name) as string = "SWIGTYPE_p_NameWrap");
assert (_testJames '(name) as string = "SWIGTYPE_Name");
assert (_testJim '(name) as string = "multiname num");
let arg = new_PairIntBool '(10, false) in
assert (_testJohn '(arg) as int = 123);
assert (_makeStringInt '("stringint", 999) as string = "stringint");
assert (_provideStringInt '(999) as string = "1000");
;;
|
