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.
16 lines
516 B
OCaml
16 lines
516 B
OCaml
open Swig
|
|
open Char_constant
|
|
|
|
let _ =
|
|
assert (_CHAR_CONSTANT '() as char = 'x');
|
|
assert (_STRING_CONSTANT '() as string = "xyzzy");
|
|
assert (_ESC_CONST '() as char = '\x01');
|
|
assert (_NULL_CONST '() as char = '\x00');
|
|
assert (_SPECIALCHARA '() as char = 'A');
|
|
assert (_SPECIALCHARB '() as char = 'B');
|
|
assert (_SPECIALCHARC '() as char = 'C');
|
|
assert (_SPECIALCHARD '() as char = 'D');
|
|
assert (_SPECIALCHARE '() as char = 'E');
|
|
assert (_ia '() as char = 'a');
|
|
assert (_ib '() as char = 'b');
|
|
;;
|