21 lines
492 B
Factor
21 lines
492 B
Factor
! Copyright (C) 2009 Doug Coleman.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: accessors kernel random random.sfmt random.sfmt.private
|
|
sequences tools.test ;
|
|
IN: random.sfmt.tests
|
|
|
|
[ ] [ 100 <sfmt-19937> drop ] unit-test
|
|
|
|
[ 1096298955 ]
|
|
[ 100 <sfmt-19937> dup generate dup generate uint-array>> first ] unit-test
|
|
|
|
[ 2556114782 ]
|
|
[ 100 <sfmt-19937> random-32* ] unit-test
|
|
|
|
[ t ]
|
|
[
|
|
100 <sfmt-19937>
|
|
[ random-32* ]
|
|
[ 100 seed-random random-32* ] bi =
|
|
] unit-test
|