mirror of
https://github.com/c-cube/ocaml-containers.git
synced 2025-12-09 12:45:34 -05:00
13 lines
408 B
OCaml
13 lines
408 B
OCaml
|
|
module Test = (val Containers_testlib.make ~__FILE__())
|
|
open Test
|
|
open CCBijection;;
|
|
|
|
module M = Make(Int)(String);;
|
|
|
|
|
|
eq 2 (M.of_list [1,"1"; 2, "2"] |> M.cardinal);;
|
|
eq "1" (M.of_list [1,"1"; 2, "2"] |> M.find_left 1);;
|
|
eq "2" (M.of_list [1,"1"; 2, "2"] |> M.find_left 2);;
|
|
eq 1 (M.of_list [1,"1"; 2, "2"] |> M.find_right "1");;
|
|
eq 2 (M.of_list [1,"1"; 2, "2"] |> M.find_right "2");;
|