diff options
Diffstat (limited to 'test')
-rw-r--r-- | test/Bindings/Ocaml/vmcore.ml | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/test/Bindings/Ocaml/vmcore.ml b/test/Bindings/Ocaml/vmcore.ml index 2597c6fa3a..6b103cb8fc 100644 --- a/test/Bindings/Ocaml/vmcore.ml +++ b/test/Bindings/Ocaml/vmcore.ml @@ -36,6 +36,25 @@ let filename = Sys.argv.(1) let m = create_module filename +(*===-- Target ------------------------------------------------------------===*) + +let test_target () = + begin group "triple"; + (* RUN: grep "i686-apple-darwin8" < %t.ll + *) + let trip = "i686-apple-darwin8" in + set_target_triple trip m; + insist (trip = target_triple m) + end; + + begin group "layout"; + (* RUN: grep "bogus" < %t.ll + *) + let layout = "bogus" in + set_data_layout layout m; + insist (layout = data_layout m) + end + (*===-- Types -------------------------------------------------------------===*) let test_types () = @@ -823,6 +842,7 @@ let test_writer () = (*===-- Driver ------------------------------------------------------------===*) let _ = + suite "target" test_target; suite "types" test_types; suite "constants" test_constants; suite "global values" test_global_values; |