steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

random: Bump up the random unit tests from 50k to 500k. At 50k, pareto doesn't have enough samples to get the right std. At 500k, it should never fail again..

db4 similar-0.95
Doug Coleman 2012-08-16 14:14:08 -07:00
parent aad70160f0
commit afb2a6eabb
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
basis/random/random-tests.factor
View File

@ -35,57 +35,57 @@ IN: random.tests
[ [ 100 random-bytes ] with-system-random drop ] unit-test
{ t t }
[ 50000 [ 0 1 normal-random-float ] replicate [ mean 0 .2 ~ ] [ std 1 .2 ~ ] bi ] unit-test
[ 500000 [ 0 1 normal-random-float ] replicate [ mean 0 .2 ~ ] [ std 1 .2 ~ ] bi ] unit-test
{ t }
[ 50000 [ .15 exponential-random-float ] replicate [ mean ] [ std ] bi .2 ~ ] unit-test
[ 500000 [ .15 exponential-random-float ] replicate [ mean ] [ std ] bi .2 ~ ] unit-test
{ t }
[ 50000 [ 1 exponential-random-float ] replicate [ mean ] [ std ] bi .2 ~ ] unit-test
[ 500000 [ 1 exponential-random-float ] replicate [ mean ] [ std ] bi .2 ~ ] unit-test
{ t t }
[
50000 [ 1 3 pareto-random-float ] replicate [ mean ] [ std ] bi
500000 [ 1 3 pareto-random-float ] replicate [ mean ] [ std ] bi
[ 1.5 .5 ~ ] [ 3 sqrt 2 / .5 ~ ] bi*
] unit-test
{ t t }
[
50000 [ 2 3 gamma-random-float ] replicate
500000 [ 2 3 gamma-random-float ] replicate
[ mean 6 .2 ~ ] [ std 2 sqrt 3 * .2 ~ ] bi
] unit-test
{ t t }
[
50000 [ 2 3 beta-random-float ] replicate
500000 [ 2 3 beta-random-float ] replicate
[ mean 2 2 3 + / .2 ~ ]
[ std 2 sqrt 3 sqrt + 2 3 + dup 1 + sqrt * / .2 ~ ] bi
] unit-test
{ t }
[ 50000 [ 3 4 von-mises-random-float ] replicate mean 3 .2 ~ ] unit-test
[ 500000 [ 3 4 von-mises-random-float ] replicate mean 3 .2 ~ ] unit-test
{ t t }
[
50000 [ 2 7 triangular-random-float ] replicate
500000 [ 2 7 triangular-random-float ] replicate
[ mean 2 7 + 2 / .2 ~ ] [ std 7 2 - 2 6 sqrt * / .2 ~ ] bi
] unit-test
{ t t }
[
50000 [ 2 3 laplace-random-float ] replicate
500000 [ 2 3 laplace-random-float ] replicate
[ mean 2 .2 ~ ] [ std 2 sqrt 3 * .2 ~ ] bi
] unit-test
{ t t }
[
50000 [ 12 rayleigh-random-float ] replicate
500000 [ 12 rayleigh-random-float ] replicate
[ mean pi 2 / sqrt 12 * .2 ~ ]
[ std 2 pi 2 / - sqrt 12 * .2 ~ ] bi
] unit-test
{ t t }
[
50000 [ 3 4 logistic-random-float ] replicate
500000 [ 3 4 logistic-random-float ] replicate
[ mean 3 .2 ~ ] [ std pi 4 * 3 sqrt / .2 ~ ] bi
] unit-test