From c2236c0ca457ef74aeffbee84a9e13e9be6d615f Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Wed, 28 Oct 2009 16:12:43 -0500 Subject: [PATCH] add a unit test for accumulate! --- core/sequences/sequences-tests.factor | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/core/sequences/sequences-tests.factor b/core/sequences/sequences-tests.factor index 58e61cc94c..dc99542da8 100644 --- a/core/sequences/sequences-tests.factor +++ b/core/sequences/sequences-tests.factor @@ -24,6 +24,12 @@ IN: sequences.tests [ 5040 { 1 1 2 6 24 120 720 } ] [ { 1 2 3 4 5 6 7 } 1 [ * ] accumulate ] unit-test +[ 5040 { 1 1 2 6 24 120 720 } ] +[ { 1 2 3 4 5 6 7 } 1 [ * ] accumulate! ] unit-test + +[ t ] +[ { 1 2 3 4 5 6 7 } dup 1 [ * ] accumulate! nip eq? ] unit-test + [ f f ] [ [ ] [ ] find ] unit-test [ 0 1 ] [ [ 1 ] [ ] find ] unit-test [ 1 "world" ] [ [ "hello" "world" ] [ "world" = ] find ] unit-test