sequences.deep: adding a test for deep-reduce.

diff --git a/basis/sequences/deep/deep-tests.factor b/basis/sequences/deep/deep-tests.factor
index 9e5ae0e3bb5101b9dc2703bed8821b049ea7744f..5b6d8784af690fde3e0d831063ad4756a659c4d2 100644 (file)
--- a/basis/sequences/deep/deep-tests.factor
+++ b/basis/sequences/deep/deep-tests.factor
@@ -41,3 +41,9 @@ IN: sequences.deep.tests
 
 [ t ]
 [ { 1 2 3 4 } { { 1 2 3 4 } } deep-subseq? ] unit-test
+
+{ 3 } [
+    { 1 { 2 3 { 4 } } 5 { { 6 } 7 } } 0 [
+        dup integer? [ even? [ 1 + ] when ] [ drop ] if
+    ] deep-reduce
+] unit-test