simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-06 11:15:31 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix bug in test

Browse source
This commit is contained in:
Simon Cruanes 2014-06-29 23:33:10 +02:00
parent 39c33046ce
commit 94ff411f9f
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
tests/test_PersistentHashtbl.ml
View file

@ -154,7 +154,7 @@ let check_old_new =
let prop l = let prop l =
let l1, l2 = List.partition (fun (x,_) -> x mod 2 = 0) l in let l1, l2 = List.partition (fun (x,_) -> x mod 2 = 0) l in
let h1 = H.of_list l1 in let h1 = H.of_list l1 in
let h2 = H.of_list ~init:h1 l2 in let h2 = H.add_list h1 l2 in
List.for_all List.for_all
(fun (k,v) -> H.find h2 k = v) (fun (k,v) -> H.find h2 k = v)
l l