| open Swig |
| open Chartest |
| |
| let _ = |
| assert (_GetPrintableChar '() as char = 'a'); |
| assert (_GetUnprintableChar '() as char = '\127'); |
| assert (_printable_global_char '() as char = 'a'); |
| assert (_unprintable_global_char '() as char = '\127'); |
| assert (_globchar0 '() as char = '\x00'); |
| assert (_globchar1 '() as char = '\x01'); |
| assert (_globchar2 '() as char = '\n'); |
| assert (_globcharA '() as char = 'A'); |
| assert (_globcharB '() as char = 'B'); |
| assert (_globcharC '() as char = 'C'); |
| assert (_globcharD '() as char = 'D'); |
| assert (_globcharE '() as char = 'E'); |
| assert (_CharTestClass_memberchar0 '() as char = '\x00'); |
| assert (_CharTestClass_memberchar1 '() as char = '\x01'); |
| assert (_CharTestClass_memberchar2 '() as char = '\n'); |
| assert (_CharTestClass_membercharA '() as char = 'A'); |
| assert (_CharTestClass_membercharB '() as char = 'B'); |
| assert (_CharTestClass_membercharC '() as char = 'C'); |
| assert (_CharTestClass_membercharD '() as char = 'D'); |
| assert (_CharTestClass_membercharE '() as char = 'E'); |
| ;; |