rename math.statistics:cum-map to sequences:accumulate*

[factor.git] / core / sequences / sequences-tests.factor

diff --git a/core/sequences/sequences-tests.factor b/core/sequences/sequences-tests.factor
index 486ea209193dfae0e3e00db3a8dbb907b1a1510f..baf2b8bbe17fed217d6fa47819c241fff25b39c6 100644 (file)
--- a/core/sequences/sequences-tests.factor
+++ b/core/sequences/sequences-tests.factor
@@ -34,6 +34,18 @@ IN: sequences.tests
 { t }
 [ { 1 2 3 4 5 6 7 } dup 1 [ * ] accumulate! nip eq? ] unit-test
 
+{ { 1 2 6 24 120 720 5040 } }
+[ { 1 2 3 4 5 6 7 } 1 [ * ] accumulate* ] unit-test
+
+{ B{ 2 4 16 64 } }
+[ B{ 2 2 4 4 } 1 [ * ] accumulate* ] unit-test
+
+{ { 1 2 6 24 120 720 5040 } }
+[ { 1 2 3 4 5 6 7 } 1 [ * ] accumulate*! ] unit-test
+
+{ t }
+[ { 1 2 3 4 5 6 7 } dup 1 [ * ] accumulate*! eq? ] unit-test
+
 { f f } [ [ ] [ ] find ] unit-test
 { 0 1 } [ [ 1 ] [ ] find ] unit-test
 { 1 "world" } [ [ "hello" "world" ] [ "world" = ] find ] unit-test