Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

18 lines (15 sloc) 0.503 kb
open OUnit
open BatPervasives
open BatMultiPMap
let test_multimap_empty_assoc_lists () =
let map =
add 0 "foo" empty |> add 0 "bar" |> add 0 "sna" |>
remove 0 "foo" |> remove 0 "bar" |> remove 0 "sna"
in
if mem 0 map then
assert_failure
(Printf.sprintf "map[0] should be empty but contains %d bindings\n"
(BatSet.PSet.cardinal (find 0 map)))
let tests = "MultiPMap" >::: [
"MultiPMap: removing empty association lists" >:: test_multimap_empty_assoc_lists;
]
Jump to Line
Something went wrong with that request. Please try again.