factor/basis/random/random-tests.factor

USING: random sequences tools.test kernel math math.functions
sets grouping random.private ;
IN: random.tests

[ 4 ] [ 4 random-bytes length ] unit-test
[ 7 ] [ 7 random-bytes length ] unit-test

[ 4 ] [ [ 4 random-bytes length ] with-secure-random ] unit-test
[ 7 ] [ [ 7 random-bytes length ] with-secure-random ] unit-test

[ 2 ] [ V{ 10 20 30 } [ delete-random drop ] keep length ] unit-test
[ V{ } [ delete-random drop ] keep length ] must-fail

[ 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

[ t ] [ 1000 [ 400 random ] replicate prune length 256 > ] unit-test

[ f ] [ 0 random ] unit-test

[ f ]
[ 100 [ { 0 1 } random ] replicate all-equal? ] unit-test

[ t ]
[ { 1 2 } [ length ] [ >randomize-range length ] bi - 1 = ] unit-test
fix random for real. is there redundant math here? 2008-09-09 18:07:32 -04:00			`USING: random sequences tools.test kernel math math.functions`
unit test how many elements to swap with randomize, remove a usage of pick 2009-02-14 14:28:41 -05:00			`sets grouping random.private ;`
fix random add with-secure-random 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`
test with-secure-random 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`
Fixing basis -> extra dependencies 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`
make the random word actually return a number in the full range of the input and replace division words with bitwise ones 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`
fix random for real. is there redundant math here? 2008-09-09 18:07:32 -04:00
			`[ t ] [ 1000 [ 400 random ] replicate prune length 256 > ] unit-test`
random is generic, better random docs, cleanups 2008-10-04 12:44:12 -04:00
Fix unit test 2008-10-06 00:09:10 -04:00			`[ f ] [ 0 random ] unit-test`
randomize was broken -- elements could not exchange with themselves 2009-02-14 14:14:00 -05:00
			`[ f ]`
			`[ 100 [ { 0 1 } random ] replicate all-equal? ] unit-test`
unit test how many elements to swap with randomize, remove a usage of pick 2009-02-14 14:28:41 -05:00
			`[ t ]`
			`[ { 1 2 } [ length ] [ >randomize-range length ] bi - 1 = ] unit-test`