test/Bindings/OCaml/transform_utils.ml

   1 (* RUN: cp %s %T/transform_utils.ml
   2  * RUN: %ocamlc -g -warn-error A -package llvm.transform_utils -linkpkg %T/transform_utils.ml -o %t
   3  * RUN: %t
   4  * RUN: %ocamlopt -g -warn-error A -package llvm.transform_utils -linkpkg %T/transform_utils.ml -o %t
   5  * RUN: %t
   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 ()