basis/shuffle/shuffle-tests.factor

   1 USING: shuffle tools.test ;
   2 IN: shuffle.tests
   3
   4 [ 1 2 3 4 ] [ 3 4 1 2 2swap ] unit-test
   5
   6 [ 4 2 3 ] [ 1 2 3 4 shuffle( a b c d -- d b c ) ] unit-test
   7
   8 [ 2 3 4 1 ] [ 1 2 3 4 roll ] unit-test
   9 [ 1 2 3 4 ] [ 2 3 4 1 -roll ] unit-test