sequences.product: additional product-find test.

diff --git a/basis/sequences/product/product-tests.factor b/basis/sequences/product/product-tests.factor
index 06a65a7be8333ed6b935c80e098774343832d56b..483821b59fbfdba7c340bd144470264df9ade7c1 100644 (file)
--- a/basis/sequences/product/product-tests.factor
+++ b/basis/sequences/product/product-tests.factor
@@ -25,6 +25,14 @@ USING: arrays kernel make math sequences sequences.product tools.test ;
 { { } } [ { { } { 1 } } [ ] product-map ] unit-test
 { } [ { { } { 1 } } [ drop ] product-each ] unit-test
 
+{ f } [
+    { } [ sum zero? ] product-find
+] unit-test
+
+{ f } [
+    { f } [ sum zero? ] product-find
+] unit-test
+
 { { 2 4 8 } } [
     { { 1 2 3 } { 4 5 6 } { 7 8 9 } }
     [ [ even? ] all? ] product-find