factor/basis/shuffle/shuffle-tests.factor

6 lines
130 B
Factor
Raw Normal View History

2008-07-08 13:44:25 -04:00
USING: shuffle tools.test ;
2008-07-08 13:34:52 -04:00
{ 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