diff options
author | Peter Zotov <whitequark@whitequark.org> | 2013-11-06 09:21:08 +0000 |
---|---|---|
committer | Peter Zotov <whitequark@whitequark.org> | 2013-11-06 09:21:08 +0000 |
commit | ba0c7cd012b064e2d8009480f9ae6f7d75e00e13 (patch) | |
tree | 97f2b78d23db4f2a21fad1de359bc79e6bcdb00b /test/Bindings/Ocaml | |
parent | 14bbb1d9b083c7935185e7c11ddf059f352aa3fc (diff) | |
download | llvm-ba0c7cd012b064e2d8009480f9ae6f7d75e00e13.tar.gz llvm-ba0c7cd012b064e2d8009480f9ae6f7d75e00e13.tar.bz2 llvm-ba0c7cd012b064e2d8009480f9ae6f7d75e00e13.tar.xz |
[OCaml] Implement Llvm.string_of_llvalue
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@194136 91177308-0d34-0410-b5e6-96231b3b80d8
Diffstat (limited to 'test/Bindings/Ocaml')
-rw-r--r-- | test/Bindings/Ocaml/vmcore.ml | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/test/Bindings/Ocaml/vmcore.ml b/test/Bindings/Ocaml/vmcore.ml index 4c119c0f7c..12ac62b255 100644 --- a/test/Bindings/Ocaml/vmcore.ml +++ b/test/Bindings/Ocaml/vmcore.ml @@ -67,6 +67,14 @@ let filename = Sys.argv.(1) let m = create_module context filename +(*===-- Conversion --------------------------------------------------------===*) + +let test_conversion () = + insist ("i32" = (string_of_lltype i32_type)); + let c = const_int i32_type 42 in + insist ("i32 42" = (string_of_llvalue c)) + + (*===-- Target ------------------------------------------------------------===*) let test_target () = @@ -1392,6 +1400,7 @@ let test_writer () = (*===-- Driver ------------------------------------------------------------===*) let _ = + suite "conversion" test_conversion; suite "target" test_target; suite "constants" test_constants; suite "global values" test_global_values; |