1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
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');
;;
|
