From 94ff411f9f116985a45f75e2ce5b714f10ae4216 Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Sun, 29 Jun 2014 23:33:10 +0200
Subject: [PATCH] fix bug in test

---
 tests/test_PersistentHashtbl.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tests/test_PersistentHashtbl.ml b/tests/test_PersistentHashtbl.ml
index 4227103b..8d466484 100644
--- a/tests/test_PersistentHashtbl.ml
+++ b/tests/test_PersistentHashtbl.ml
@@ -154,7 +154,7 @@ let check_old_new =
   let prop l =
     let l1, l2 = List.partition (fun (x,_) -> x mod 2 = 0) l 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
       (fun (k,v) -> H.find h2 k = v)
       l