From eba31d687fc43ba1c87519bbde51ad29623d4b26 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 8 Aug 2016 14:31:36 -0700
Subject: [PATCH] cuckoo-filters: add tests for lookup each value also.

---
 extra/cuckoo-filters/cuckoo-filters-tests.factor | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/extra/cuckoo-filters/cuckoo-filters-tests.factor b/extra/cuckoo-filters/cuckoo-filters-tests.factor
index 3255d2da40..af2d363b07 100644
--- a/extra/cuckoo-filters/cuckoo-filters-tests.factor
+++ b/extra/cuckoo-filters/cuckoo-filters-tests.factor
@@ -12,7 +12,7 @@ cuckoo-filters kernel math.parser sequences tools.test ;
     } 2cleave
 ] unit-test
 
-{ 250,000 0 } [
+{ 250,000 250,000 0 } [
     250,000 <cuckoo-filter>
     250,000 [ number>string ] { } map-integers
     [
@@ -23,6 +23,7 @@ cuckoo-filters kernel math.parser sequences tools.test ;
             } 1&&
         ] count swap
     ]
-    [ [ over cuckoo-delete drop ] each ] bi
+    [ [ over cuckoo-lookup ] count swap ]
+    [ [ over cuckoo-delete drop ] each ] tri
     size>>
 ] unit-test