| (* RUN: rm -rf %t && mkdir -p %t && cp %s %t/transform_utils.ml |
| * RUN: %ocamlc -g -w +A -package llvm.transform_utils -linkpkg %t/transform_utils.ml -o %t/executable |
| * RUN: %t/executable |
| * RUN: %ocamlopt -g -w +A -package llvm.transform_utils -linkpkg %t/transform_utils.ml -o %t/executable |
| * RUN: %t/executable |
| * 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 () |
