test/Bindings/OCaml/transform_utils.ml

   1 (* RUN: rm -rf %t && mkdir -p %t && cp %s %t/transform_utils.ml
   2  * RUN: %ocamlc -g -w +A -package llvm.transform_utils -linkpkg %t/transform_utils.ml -o %t/executable
   3  * RUN: %t/executable
   4  * RUN: %ocamlopt -g -w +A -package llvm.transform_utils -linkpkg %t/transform_utils.ml -o %t/executable
   5  * RUN: %t/executable
   6  * XFAIL: vg_leak
   7  *)
   8
   9 open Llvm
  10 open Llvm_transform_utils
  11
  12 let context = global_context ()
  13
  14 let 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
  20 let () =
  21   test_clone_module ()