jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix OCaml %rename for enum items

Browse source
This commit is contained in:
William S Fulton 2022-10-05 21:33:06 +01:00
commit 76f5670fa4
3 changed files with 18 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Examples/test-suite/ocaml/enum_rename_runme.ml Normal file
View file

@ -0,0 +1,10 @@
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)