Merge pull request #61 from bbc2/add-test-intf

Add test case in interface file (.mli)
ocaml-ppx · Jul 13, 2021 · ec5a838 · ec5a838
2 parents 9295c26 + a9541f1
commit ec5a838
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 0 deletions.
diff --git a/src_test/ppx_deriving/test_intf.ml b/src_test/ppx_deriving/test_intf.ml
@@ -0,0 +1 @@
+type a = [%import: Stuff.a]
diff --git a/src_test/ppx_deriving/test_intf.mli b/src_test/ppx_deriving/test_intf.mli
@@ -0,0 +1 @@
+type a = [%import: Stuff.a]
diff --git a/src_test/ppx_deriving/test_ppx_import.ml b/src_test/ppx_deriving/test_ppx_import.ml
@@ -19,6 +19,7 @@ module type S_rec = [%import: (module Stuff.S_rec)]
 let test_constr _ctxt =
   ignore [A1; A2 "a"];
   ignore (Stuff.A1 = A1);
+  ignore (Test_intf.A1 = A1);
   ignore {b1 = A1; b2 = "x"; b3 = Int64.zero};
   ignore (`A : c);
   ignore (Int64.zero : d);