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