factor/basis/random/mersenne-twister/mersenne-twister-tests.factor

USING: kernel math random namespaces make
random.mersenne-twister sequences tools.test math.order ;
IN: random.mersenne-twister.tests

: check-random ( max -- ? )
    [ random 0 ] keep between? ;

[ t ] [ 100 [ drop 674 check-random ] all-integers? ] unit-test

: randoms ( -- seq )
    100 [ 100 random ] replicate ;

: test-rng ( seed quot -- )
    [ <mersenne-twister> ] dip with-random ; inline

[ f ] [ 1234 [ randoms randoms = ] test-rng ] unit-test

[ 1333075495 ] [
    0 [ 1000 [ drop random-generator get random-32* drop ] each-integer random-generator get random-32* ] test-rng
] unit-test

[ 1575309035 ] [
    0 [ 10000 [ drop random-generator get random-32* drop ] each-integer random-generator get random-32* ] test-rng
] unit-test


[ 3 ] [ 101 [ 3 random-bytes length ] test-rng ] unit-test
[ 33 ] [ 101 [ 33 random-bytes length ] test-rng ] unit-test
[ t ] [ 101 [ 100 random-bits log2 90 > ] test-rng ] unit-test

[ t ]
[
    1234 <mersenne-twister>
    [ random-32* ] [ 1234 seed-random random-32* ] bi =
] unit-test