17 lines
516 B
OCaml
17 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');
|
||
|
|
;;
|