From daed6a327714aa564376463ecbd9feebe7b0603a Mon Sep 17 00:00:00 2001 From: Simon Cruanes Date: Tue, 5 Mar 2013 09:55:38 +0100 Subject: [PATCH] small test change --- tests/test_pHashtbl.ml | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/tests/test_pHashtbl.ml b/tests/test_pHashtbl.ml index 20a4af72..7b3823ce 100644 --- a/tests/test_pHashtbl.ml +++ b/tests/test_pHashtbl.ml @@ -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