basis/shuffle/shuffle-tests.factor

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