diff options
Diffstat (limited to 'test/Bindings/Ocaml/vmcore.ml')
| -rw-r--r-- | test/Bindings/Ocaml/vmcore.ml | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/test/Bindings/Ocaml/vmcore.ml b/test/Bindings/Ocaml/vmcore.ml index 1ae8e60..10a20ea 100644 --- a/test/Bindings/Ocaml/vmcore.ml +++ b/test/Bindings/Ocaml/vmcore.ml @@ -288,6 +288,12 @@ let test_constants () = ignore (define_global "const_structure" c m); insist ((struct_type context [| i16_type; i16_type; i32_type; i32_type |]) = (type_of c)); + + group "union"; + let t = union_type context [| i1_type; i16_type; i64_type; double_type |] in + let c = const_union t one in + ignore (define_global "Const_union" c m); + insist (t = (type_of c)); (* RUN: grep {const_null.*zeroinit} < %t.ll *) |