11 lines
305 B
OCaml
11 lines
305 B
OCaml
open Swig
|
|
open Enum_rename
|
|
|
|
let mydec = C_enum `M_Dec
|
|
let _ = assert (((enum_to_int `Month mydec)) = C_int 2)
|
|
let _ = assert (((int_to_enum `Month 2)) = C_enum `M_Dec)
|
|
|
|
let mymay = C_enum `May
|
|
let _ = assert (((enum_to_int `Month mymay)) = C_int 1)
|
|
let _ = assert (((int_to_enum `Month 1)) = C_enum `May)
|