26 lines
1.0 KiB
OCaml
26 lines
1.0 KiB
OCaml
|
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');
|
||
|
|
;;
|