diff options
author | Gordon Henriksen <gordonhenriksen@mac.com> | 2008-08-09 01:55:52 +0000 |
---|---|---|
committer | Gordon Henriksen <gordonhenriksen@mac.com> | 2008-08-09 01:55:52 +0000 |
commit | 21491edbf4027df4db559eb1a9aa8fbf3779cfab (patch) | |
tree | d36c2a72c7671302f4ed2520da5427d0d1f11a64 /test/Bindings | |
parent | b75de8d843cf3574e99c8917c16adbb0e6575e7e (diff) | |
download | llvm-21491edbf4027df4db559eb1a9aa8fbf3779cfab.tar.gz llvm-21491edbf4027df4db559eb1a9aa8fbf3779cfab.tar.bz2 llvm-21491edbf4027df4db559eb1a9aa8fbf3779cfab.tar.xz |
[PR-2610] Adding Ocaml bindings for Switch::addCase.
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@54571 91177308-0d34-0410-b5e6-96231b3b80d8
Diffstat (limited to 'test/Bindings')
-rw-r--r-- | test/Bindings/Ocaml/vmcore.ml | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/test/Bindings/Ocaml/vmcore.ml b/test/Bindings/Ocaml/vmcore.ml index ffb69701c8..24846b68bb 100644 --- a/test/Bindings/Ocaml/vmcore.ml +++ b/test/Bindings/Ocaml/vmcore.ml @@ -825,7 +825,18 @@ let test_builder () = ignore (build_cond_br cond bb03 bb00 b) end; - (* TODO: Switch *) + group "switch"; begin + (* RUN: grep {switch.*P1.*SwiBlock3} < %t.ll + * RUN: grep {2,.*SwiBlock2} < %t.ll + *) + let bb1 = append_block "SwiBlock1" fn in + let bb2 = append_block "SwiBlock2" fn in + ignore (build_unreachable (builder_at_end bb2)); + let bb3 = append_block "SwiBlock3" fn in + ignore (build_unreachable (builder_at_end bb3)); + let si = build_switch p1 bb3 1 (builder_at_end bb1) in + ignore (add_case si (const_int i32_type 2) bb2) + end; group "invoke"; begin (* RUN: grep {Inst02.*invoke.*P1.*P2} < %t.ll |