factor/extra/random/cmwc/cmwc-tests.factor

! Copyright (C) 2009 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: alien.c-types arrays kernel random random.cmwc sequences
specialized-arrays tools.test ;
SPECIALIZED-ARRAY: uint
IN: random.cmwc.tests

[ ] [
    cmwc-4096 [
        random-32 drop
    ] with-random
] unit-test

[
{
    4294604858
    4294948512
    4294929730
    4294910948
    4294892166
    4294873384
    4294854602
    4294835820
    4294817038
    4294798256
}
] [
    cmwc-4096
    4096 iota >uint-array 362436 <cmwc-seed> seed-random [
        10 [ random-32 ] replicate
    ] with-random
] unit-test

[ t ] [
    cmwc-4096 [
        4096 iota >uint-array 362436 <cmwc-seed> seed-random [
            10 [ random-32 ] replicate
        ] with-random
    ] [
        4096 iota >uint-array 362436 <cmwc-seed> seed-random [
            10 [ random-32 ] replicate
        ] with-random
    ] bi =
] unit-test