| (* 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") |