diff --git a/tests/test_fQueue.ml b/tests/test_fQueue.ml
index 7388d551..d164aba1 100644
--- a/tests/test_fQueue.ml
+++ b/tests/test_fQueue.ml
@@ -46,4 +46,5 @@ let suite =
       "test_push" >:: test_push;
       "test_pop" >:: test_pop;
       "test_fold" >:: test_fold;
+      "test_append" >:: test_append;
     ]
diff --git a/tests/test_mixtbl.ml b/tests/test_mixtbl.ml
index 2e6ee637..e8f4c82f 100644
--- a/tests/test_mixtbl.ml
+++ b/tests/test_mixtbl.ml
@@ -93,5 +93,6 @@ let suite =
       "clear" >:: test_clear;
       "mem" >:: test_mem;
       "bindings" >:: test_bindings;
+      "keys" >:: test_keys;
     ]
 
diff --git a/tests/test_pHashtbl.ml b/tests/test_pHashtbl.ml
index c00f0d27..f70897cf 100644
--- a/tests/test_pHashtbl.ml
+++ b/tests/test_pHashtbl.ml
@@ -92,6 +92,7 @@ let test_filter () =
 let test_map () =
   let h = PHashtbl.create 5 in
   PHashtbl.of_seq h my_seq;
+  OUnit.assert_equal (PHashtbl.length h) 4;
   let h' = PHashtbl.map (fun k v -> String.uppercase v) h in
   OUnit.assert_equal (PHashtbl.length h') 4;
   OUnit.assert_equal (PHashtbl.find h' 1) "A";
@@ -109,4 +110,5 @@ let suite =
       "test_copy" >:: test_copy;
       "test_remove" >:: test_remove;
       "test_filter" >:: test_filter;
+      "test_map" >:: test_map;
     ]