2008-09-09 18:07:32 -04:00
|
|
|
USING: random sequences tools.test kernel math math.functions
|
2008-10-05 17:41:42 -04:00
|
|
|
sets ;
|
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
|
2008-09-09 16:39:40 -04:00
|
|
|
|
|
|
|
|
[ t ] [ 10000 [ 0 [ drop 187 random + ] reduce ] keep / 2 * 187 10 ~ ] unit-test
|
|
|
|
|
[ t ] [ 10000 [ 0 [ drop 400 random + ] reduce ] keep / 2 * 400 10 ~ ] unit-test
|
2008-09-09 18:07:32 -04:00
|
|
|
|
|
|
|
|
[ t ] [ 1000 [ 400 random ] replicate prune length 256 > ] unit-test
|
2008-10-04 12:44:12 -04:00
|
|
|
|
2008-10-06 00:09:10 -04:00
|
|
|
[ f ] [ 0 random ] unit-test
|
