sequences: adding a test for map-reduce.

2012-04-16 17:52:21 -07:00 · 2012-04-16 17:52:21 -07:00 · db60f6e8c9
parent 17d9b1ba40
commit db60f6e8c9
1 changed files with 2 additions and 0 deletions
--- a/core/sequences/sequences-tests.factor
+++ b/core/sequences/sequences-tests.factor
@ -330,3 +330,5 @@ USE: make

 [ { { { 1 "a" } { 1 "b" } } { { 2 "a" } { 2 "b" } } } ]
 [ { 1 2 } { "a" "b" } cartesian-product ] unit-test
+
+[ 4 ] [ { 1 1 } [ 1 + ] [ + ] map-reduce ] unit-test