File: test_tree.ml

package info (click to toggle)
janest-base 0.17.3-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 3,632 kB
  • sloc: ml: 48,653; ansic: 281; javascript: 126; makefile: 14
file content (15 lines) | stat: -rw-r--r-- 454 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
open! Base
include Test_tree_intf.Definitions
include (Base.Map.Using_comparator.Tree : S)

let%expect_test "[Base.Map.Using_comparator.Tree] creators/accessors" =
  let open
    Functor.Test_creators_and_accessors (Types) (Base.Map.Using_comparator.Tree)
      (struct
        include Functor.Instance_tree (Int)

        let create f = f ~comparator:Int.comparator
        let access f = f ~comparator:Int.comparator
      end) in
  [%expect {| |}]
;;