34 lines
769 B
Factor
34 lines
769 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
|
|
|
|
! Period certified by virtue of seed
|
|
{ } [ 5 <sfmt-19937> drop ] unit-test
|
|
|
|
{ 1331696015 }
|
|
[ 5 <sfmt-19937> dup generate dup generate uint-array>> first ] unit-test
|
|
|
|
{ 1432875926 }
|
|
[ 5 <sfmt-19937> random-32* ] unit-test
|
|
|
|
|
|
! Period certified by flipping a bit
|
|
{ } [ 7 <sfmt-19937> drop ] unit-test
|
|
|
|
{ 1674111379 }
|
|
[ 7 <sfmt-19937> dup generate dup generate uint-array>> first ] unit-test
|
|
|
|
{ 489955657 }
|
|
[ 7 <sfmt-19937> random-32* ] unit-test
|
|
|
|
|
|
! Test re-seeding SFMT
|
|
{ t }
|
|
[
|
|
100 <sfmt-19937>
|
|
[ random-32* ]
|
|
[ 100 seed-random random-32* ] bi =
|
|
] unit-test
|