unikernel/duniverse/base/test/test_map_interface.ml

@@ -0,0 +1,20 @@
+open! Base
+
+(* Typechecking this code is a compile-time check that the specific interfaces have not
+   drifted apart from each other. *)
+
+module _ : sig
+  open Map
+
+  type ('a, 'b, 'c) t
+
+  include
+    Creators_and_accessors_generic
+      with type ('a, 'b, 'c) t := ('a, 'b, 'c) t
+      with type ('a, 'b, 'c) tree := ('a, 'b, 'c) Map.Using_comparator.Tree.t
+      with type 'k key := 'k
+      with type 'c cmp := 'c
+      with type ('a, 'b, 'c) access_options := ('a, 'b, 'c) Without_comparator.t
+      with type ('a, 'b, 'c) create_options := ('a, 'b, 'c) With_first_class_module.t
+end =
+  Map