sequences.extras: Fix bad rename. (each-from) -> setup-each-from now. Add a unit...

[factor.git] / extra / sequences / extras / extras-tests.factor

diff --git a/extra/sequences/extras/extras-tests.factor b/extra/sequences/extras/extras-tests.factor
index 29c9247ef0b6de2141983e3754c24cc4e8462538..b4c8038f24894a9f331b215248bda6be072c9c6c 100644 (file)
--- a/extra/sequences/extras/extras-tests.factor
+++ b/extra/sequences/extras/extras-tests.factor
@@ -181,3 +181,5 @@ IN: sequences.extras.tests
 { { 0 3 } } [ "ABA" "ABAABA" start-all ] unit-test
 { 1 } [ "ABA" "ABABA" count-subseq ] unit-test
 { 2 } [ "ABA" "ABABA" count-subseq* ] unit-test
+
+{ 120000 } [ { 10 20 30 40 50 60 } 1 [ * ] 3 reduce-from ] unit-test