| 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"); |
| ;; |