sequences.extras: additional tests for take-while and drop-while.

[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 52a016c344df6e89b02ab8d6efb71bd33a71dc27..a8eed85a1e353a83f3e882f1d497be3ff3eb7306 100644 (file)
--- a/extra/sequences/extras/extras-tests.factor
+++ b/extra/sequences/extras/extras-tests.factor
@@ -247,6 +247,8 @@ IN: sequences.extras.tests
 
 { { 0 1 2 3 } } [ 8 iota [ 4 < ] take-while >array ] unit-test
 { { } } [ { 15 16 } [ 4 < ] take-while >array ] unit-test
+{ { 0 1 2 } } [ 3 iota [ 4 < ] take-while >array ] unit-test
 
 { { 4 5 6 7 } } [ 8 iota [ 4 < ] drop-while >array ] unit-test
 { { 15 16 } } [ { 15 16 } [ 4 < ] drop-while >array ] unit-test
+{ { } } [ 3 iota [ 4 < ] drop-while >array ] unit-test