11 lines
305 B
OCaml
11 lines
305 B
OCaml
|
open Swig
|
||
|
|
open Wrapmacro
|
||
|
|
|
||
|
|
let _ =
|
||
|
|
let args = C_list [ C_int64 2L ; C_int64 1L ] in
|
||
|
|
assert (_maximum '(args) as int = 2);
|
||
|
|
let args = C_list [ C_double (2. /. 7.) ; C_double 256. ] in
|
||
|
|
assert (_maximum '(args) as float = 256.);
|
||
|
|
assert (_GUINT16_SWAP_LE_BE_CONSTANT '(0x1234) as int = 0x3412);
|
||
|
|
;;
|