From db60f6e8c97c7d390014d73e9e8ddb0a6a293904 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Mon, 16 Apr 2012 17:52:21 -0700 Subject: [PATCH] sequences: adding a test for map-reduce. --- core/sequences/sequences-tests.factor | 2 ++ 1 file changed, 2 insertions(+) diff --git a/core/sequences/sequences-tests.factor b/core/sequences/sequences-tests.factor index 37e03ff9d2..c578e1ce49 100644 --- 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