1(* RUN: cp %s %T/transform_utils.ml 2 * RUN: %ocamlc -g -w +A -package llvm.transform_utils -linkpkg %T/transform_utils.ml -o %t 3 * RUN: %t 4 * RUN: %ocamlopt -g -w +A -package llvm.transform_utils -linkpkg %T/transform_utils.ml -o %t 5 * RUN: %t 6 * XFAIL: vg_leak 7 *) 8 9open Llvm 10open Llvm_transform_utils 11 12let context = global_context () 13 14let test_clone_module () = 15 let m = create_module context "mod" in 16 let m' = clone_module m in 17 if m == m' then failwith "m == m'"; 18 if string_of_llmodule m <> string_of_llmodule m' then failwith "string_of m <> m'" 19 20let () = 21 test_clone_module () 22