2025-11-11 02:07:51 +01:00 · 2025-11-11 02:07:51 +01:00 · 2f3113f55d
commit 2f3113f55d
parent aa2ff7b2f0
11742 changed files with 1223940 additions and 0 deletions
--- a/unikernel/duniverse/base/test/map_full_interface/test_poly.ml
+++ b/unikernel/duniverse/base/test/map_full_interface/test_poly.ml
@ -0,0 +1,15 @@
+open! Base
+include Test_poly_intf.Definitions
+include (Base.Map.Poly : S)
+
+let%expect_test "[Base.Map.Poly] creators/accessors" =
+  let open
+    Functor.Test_creators_and_accessors (Types) (Base.Map.Poly)
+      (struct
+        include Functor.Instance (Comparator.Poly)
+
+        let create x = x
+        let access x = x
+      end) in
+  [%expect {| |}]
+;;