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

2015-06-09 09:16:40 -07:00 · 2015-06-09 09:16:40 -07:00 · b7e0c5a0dd
parent 6698f7d55d
commit b7e0c5a0dd
1 changed files with 6 additions and 0 deletions
--- 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