Source

ocaml-core / base / core / extended / lib_test / search_test.ml

Full commit
1
2
3
4
5
6
7
8
9
open OUnit
open Core.Std

let test = "search" >::: [
  "max_len" >:: (fun () ->
    "1" @? ((Core_extended.Std.Search.max_len ~key:ident [|"a";"bb"|]) = 2);
    "2" @? ((Core_extended.Std.Search.max_len ~key:fst [|("a",2);("bb",3)|]) = 2);
  );
]