factor/basis/shuffle/shuffle-tests.factor

USING: shuffle tools.test ;
IN: shuffle.tests

[ 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 1 ] [ 1 2 3 4 roll ] unit-test
[ 1 2 3 4 ] [ 2 3 4 1 -roll ] unit-test
ugh 2008-07-08 13:44:25 -04:00			`USING: shuffle tools.test ;`
exile roll and -roll to basis/shuffle and mark them deprecated 2009-10-30 18:11:45 -04:00			`IN: shuffle.tests`
Oops 2008-07-08 13:34:52 -04:00
Removing more >r/r> usages 2008-12-03 09:46:16 -05:00			`[ 1 2 3 4 ] [ 3 4 1 2 2swap ] unit-test`
shuffle( -- ) arbitrary stack shuffling word 2009-02-09 12:40:05 -05:00
			`[ 4 2 3 ] [ 1 2 3 4 shuffle( a b c d -- d b c ) ] unit-test`
exile roll and -roll to basis/shuffle and mark them deprecated 2009-10-30 18:11:45 -04:00
			`[ 2 3 4 1 ] [ 1 2 3 4 roll ] unit-test`
			`[ 1 2 3 4 ] [ 2 3 4 1 -roll ] unit-test`