diff options
Diffstat (limited to 'Examples/test-suite/ocaml/unions_runme.ml')
| -rw-r--r-- | Examples/test-suite/ocaml/unions_runme.ml | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/Examples/test-suite/ocaml/unions_runme.ml b/Examples/test-suite/ocaml/unions_runme.ml new file mode 100644 index 0000000..cbf1628 --- /dev/null +++ b/Examples/test-suite/ocaml/unions_runme.ml @@ -0,0 +1,28 @@ +(* Test the unions example... *) + +open Swig +open Unions + +let a = new_SmallStruct C_void +let b = new_BigStruct C_void +let c = new_UnionTest C_void +let d = new_EmbeddedUnionTest C_void + +let _ = (invoke a) "jill" (C_short 3) +let _ = (invoke b) "jack" (C_char 'a') (* Int conversion *) +let _ = (invoke b) "smallstruct" a (* Put a in b *) +let _ = (invoke c) "bs" b + +let _ = if get_int ((invoke a) "jill" C_void) != 3 then + raise (Failure "jill value is not preserved") +let _ = if get_int ((invoke b) "jack" C_void) != (int_of_char 'a') then + raise (Failure "jack value is not preserved") +let _ = if get_int ((invoke ((invoke b) "smallstruct" C_void)) + "jill" C_void) != 3 then + raise (Failure "jill value is not embedded in bigstruct") +let _ = if get_int ((invoke ((invoke c) "bs" C_void)) + "jack" C_void) != (int_of_char 'a') then + raise (Failure "union set of bigstruct did not take") +let _ = if get_int ((invoke ((invoke c) "ss" C_void)) + "jill" C_void) != (int_of_char 'a') then + raise (Failure "corresponding union values are not the same") |