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

small test change

Browse source
This commit is contained in:
Simon Cruanes 2013-03-05 09:55:38 +01:00
parent f7d0d88882
commit daed6a3277
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
tests/test_pHashtbl.ml
View file

@ -80,8 +80,11 @@ let test_filter () =
OUnit.assert_equal (PHashtbl.length h) 4;
PHashtbl.filter (fun k _ -> (k mod 2) = 0) h;
OUnit.assert_equal (PHashtbl.length h) 2;
OUnit.assert_bool "mem" (PHashtbl.mem h 4);
OUnit.assert_bool "mem" (PHashtbl.mem h 2)
OUnit.assert_bool "4 mem" (PHashtbl.mem h 4);
OUnit.assert_bool "2 mem" (PHashtbl.mem h 2);
OUnit.assert_bool "1 not mem" (not (PHashtbl.mem h 1));
OUnit.assert_bool "3 not mem" (not (PHashtbl.mem h 3));
()
let test_map () =
let h = PHashtbl.create 5 in