2008-09-05 20:29:14 -04:00
|
|
|
USING: random sequences tools.test kernel ;
|
2008-03-28 23:10:01 -04:00
|
|
|
IN: random.tests
|
|
|
|
|
|
|
|
|
|
[ 4 ] [ 4 random-bytes length ] unit-test
|
|
|
|
|
[ 7 ] [ 7 random-bytes length ] unit-test
|
2008-03-28 23:12:11 -04:00
|
|
|
|
|
|
|
|
[ 4 ] [ [ 4 random-bytes length ] with-secure-random ] unit-test
|
|
|
|
|
[ 7 ] [ [ 7 random-bytes length ] with-secure-random ] unit-test
|
2008-09-05 20:29:14 -04:00
|
|
|
|
|
|
|
|
[ 2 ] [ V{ 10 20 30 } [ delete-random drop ] keep length ] unit-test
|
|
|
|
|
[ V{ } [ delete-random drop ] keep length ] must-fail
|
