1 ! Copyright (C) 2010 Jon Harper.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: tools.test combinators.random combinators.random.private ;
4 IN: combinators.random.tests
6 [ 1 ] [ 1 [ 1 ] [ 2 ] ifp ] unit-test
7 [ 2 ] [ 0 [ 1 ] [ 2 ] ifp ] unit-test
40 [ 2 ] } (casep) ] unit-test
45 [ { [ 1 ] [ 2 ] [ 3 ] } call-random>casep ] unit-test
52 { 1 [ 3 ] } } direct>conditional ] unit-test
59 { [ 3 ] } } direct>conditional ] unit-test
61 [ f ] [ { { 0.6 [ 1 ] }
62 { 0.6 [ 2 ] } } good-probabilities? ] unit-test
63 [ f ] [ { { 0.3 [ 1 ] }
64 { 0.6 [ 2 ] } } good-probabilities? ] unit-test
65 [ f ] [ { { -0.6 [ 1 ] }
66 { 1.4 [ 2 ] } } good-probabilities? ] unit-test
67 [ f ] [ { { -0.6 [ 1 ] }
68 [ 2 ] } good-probabilities? ] unit-test
69 [ t ] [ { { 0.6 [ 1 ] }
70 [ 2 ] } good-probabilities? ] unit-test
71 [ t ] [ { { 0.6 [ 1 ] }
72 { 0.4 [ 2 ] } } good-probabilities? ] unit-test