add test for module type with

ocaml-ppx · Feb 23, 2023 · de40fc0 · de40fc0
1 parent 2fea5f2
commit de40fc0
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/src_test/ppx_deriving/test_ppx_import.ml b/src_test/ppx_deriving/test_ppx_import.ml
@@ -54,6 +54,16 @@ type package_type =
 
 module type Hashable = [%import: (module Hashtbl.HashedType)]
 
+module type HashableWith = [%import:
+(module Hashtbl.HashedType with type t = string)]
+
+module HashableWith : HashableWith = struct
+  type t
+
+  let equal = String.equal
+  let hash = int_of_string
+end
+
 [%%import: type self_t = Test_self_import.t]
 
 let test_self_import _ctxt =