c61c221057
OCaml's constantWrapper() was adding unneeded quotes when wrapping static const member chars. Add runtime tests for char_constant, chartest, and static_const_member.
25 lines
1 KiB
OCaml
25 lines
1 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');
|
|
;;
|