| (* RUN: cp %s %T/transform_utils.ml |
| * RUN: %ocamlc -g -w +A -package llvm.transform_utils -linkpkg %T/transform_utils.ml -o %t |
| * RUN: %t |
| * RUN: %ocamlopt -g -w +A -package llvm.transform_utils -linkpkg %T/transform_utils.ml -o %t |
| * RUN: %t |
| * XFAIL: vg_leak |
| *) |
| |
| open Llvm |
| open Llvm_transform_utils |
| |
| let context = global_context () |
| |
| let test_clone_module () = |
| let m = create_module context "mod" in |
| let m' = clone_module m in |
| if m == m' then failwith "m == m'"; |
| if string_of_llmodule m <> string_of_llmodule m' then failwith "string_of m <> m'" |
| |
| let () = |
| test_clone_module () |