memoize: fix a few more zero input cases

[factor.git] / core / memoize / memoize-tests.factor

diff --git a/core/memoize/memoize-tests.factor b/core/memoize/memoize-tests.factor
index 809cae2794ac5dbce8e3a5252f888bcd45bcff1e..87408ee3131307486c2f50a135d81656494b4d56 100644 (file)
--- a/core/memoize/memoize-tests.factor
+++ b/core/memoize/memoize-tests.factor
@@ -59,3 +59,18 @@ MEMO: bar ( -- x ) bar-counter counter ;
     bar
     bar
 ] unit-test
+
+SYMBOL: baz-counter
+0 baz-counter set-global
+
+MEMO: baz ( -- x ) baz-counter counter drop f ;
+
+{ 0 f 1 f 1 f 1 } [
+    baz-counter get-global
+    baz
+    baz-counter get-global
+    baz
+    baz-counter get-global
+    baz
+    baz-counter get-global
+] unit-test