extra/random/cmwc/cmwc-tests.factor

   1 ! Copyright (C) 2009 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: arrays kernel random random.cmwc sequences tools.test ;
   4 IN: random.cmwc.tests
   5
   6 [ ] [
   7     cmwc-4096 [
   8         random-32 drop
   9     ] with-random
  10 ] unit-test
  11
  12 [
  13 {
  14     4294604858
  15     4294948512
  16     4294929730
  17     4294910948
  18     4294892166
  19     4294873384
  20     4294854602
  21     4294835820
  22     4294817038
  23     4294798256
  24 }
  25 ] [
  26     cmwc-4096
  27     4096 iota >array 362436 <cmwc-seed> seed-random [
  28         10 [ random-32 ] replicate
  29     ] with-random
  30 ] unit-test
  31
  32 [ t ] [
  33     cmwc-4096 [
  34         4096 iota >array 362436 <cmwc-seed> seed-random [
  35             10 [ random-32 ] replicate
  36         ] with-random
  37     ] [
  38         4096 iota >array 362436 <cmwc-seed> seed-random [
  39             10 [ random-32 ] replicate
  40         ] with-random
  41     ] bi =
  42 ] unit-test