basis/shuffle/shuffle-tests.factor

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