basis/random/sfmt/sfmt-tests.factor

   1 ! Copyright (C) 2009 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: accessors kernel random random.sfmt random.sfmt.private
   4 sequences tools.test ;
   5 IN: random.sfmt.tests
   6
   7 ! Period certified by virtue of seed
   8 { } [ 5 <sfmt-19937> drop ] unit-test
   9
  10 { 1331696015 }
  11 [ 5 <sfmt-19937> dup generate dup generate uint-array>> first ] unit-test
  12
  13 { 1432875926 }
  14 [ 5 <sfmt-19937> random-32* ] unit-test
  15
  16
  17 ! Period certified by flipping a bit
  18 { } [ 7 <sfmt-19937> drop ] unit-test
  19
  20 { 1674111379 }
  21 [ 7 <sfmt-19937> dup generate dup generate uint-array>> first ] unit-test
  22
  23 { 489955657 }
  24 [ 7 <sfmt-19937> random-32* ] unit-test
  25
  26
  27 ! Test re-seeding SFMT
  28 { t }
  29 [
  30     100 <sfmt-19937>
  31     [ random-32* ]
  32     [ 100 seed-random random-32* ] bi =
  33 ] unit-test