combinators.extras: Add some weird combinators that might be useful.

[factor.git] / basis / shuffle / shuffle-tests.factor

diff --git a/basis/shuffle/shuffle-tests.factor b/basis/shuffle/shuffle-tests.factor
index b9eee02ce0e5f0449ef5c630a2efe8be00fb034b..d950ccd7661621536d5aca54c4fa1dc015c50272 100644 (file)
--- a/basis/shuffle/shuffle-tests.factor
+++ b/basis/shuffle/shuffle-tests.factor
@@ -3,3 +3,8 @@ USING: shuffle tools.test ;
 { 1 2 3 4 } [ 3 4 1 2 2swap ] unit-test
 
 { 4 2 3 } [ 1 2 3 4 shuffle( a b c d -- d b c ) ] unit-test
+
+{ 2 3 4 5 1 } [ 1 2 3 4 5 5roll ] unit-test
+{ 2 3 4 5 6 1 } [ 1 2 3 4 5 6 6roll ] unit-test
+{ 2 3 4 5 6 7 1 } [ 1 2 3 4 5 6 7 7roll ] unit-test
+{ 2 3 4 5 6 7 8 1 } [ 1 2 3 4 5 6 7 8 8roll ] unit-test