diff options
| author | Erick Tryzelaar <idadesub@users.sourceforge.net> | 2010-02-28 09:46:21 +0000 |
|---|---|---|
| committer | Erick Tryzelaar <idadesub@users.sourceforge.net> | 2010-02-28 09:46:21 +0000 |
| commit | d80ce75687c22e63d746d732b4e28fd5a1207a9d (patch) | |
| tree | 4871de1b6f58cc6c104e82642ddb2aa92b59c65a /test/Bindings | |
| parent | 68bab9833db8d524398f7feee1ce4bda9df320ab (diff) | |
| download | external_llvm-d80ce75687c22e63d746d732b4e28fd5a1207a9d.zip external_llvm-d80ce75687c22e63d746d732b4e28fd5a1207a9d.tar.gz external_llvm-d80ce75687c22e63d746d732b4e28fd5a1207a9d.tar.bz2 | |
Add a way to look up a type by it's name in a module.
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@97379 91177308-0d34-0410-b5e6-96231b3b80d8
Diffstat (limited to 'test/Bindings')
| -rw-r--r-- | test/Bindings/Ocaml/vmcore.ml | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/test/Bindings/Ocaml/vmcore.ml b/test/Bindings/Ocaml/vmcore.ml index 665c6f9..379cde1 100644 --- a/test/Bindings/Ocaml/vmcore.ml +++ b/test/Bindings/Ocaml/vmcore.ml @@ -185,6 +185,14 @@ let test_types () = let ty = opaque_type context in insist (define_type_name "delete_type" ty m); delete_type_name "delete_type" m; + + (* RUN: grep {type_name.*opaque} < %t.ll + *) + group "type_name"; begin + let ty = opaque_type context in + insist (define_type_name "type_name" ty m); + insist ((type_by_name m "type_name") = Some ty) + end; (* RUN: grep -v {recursive_type.*recursive_type} < %t.ll *) |