]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/combinators/random/random-tests.factor
Revert "factor: rename [ ] [ ] unit-test -> { } [ ] unit-test using a refactoring...
[factor.git] / basis / combinators / random / random-tests.factor
index 46282a3222a2f7d9494b7bb75fba0146e4f30a7b..32f28745385bb7dd4a15a28ff5d6a7343005e3f4 100644 (file)
@@ -3,70 +3,70 @@
 USING: tools.test combinators.random combinators.random.private ;
 IN: combinators.random.tests
 
-{ 1 } [ 1 [ 1 ] [ 2 ] ifp ] unit-test
-{ 2 } [ 0 [ 1 ] [ 2 ] ifp ] unit-test
+[ 1 ] [ 1 [ 1 ] [ 2 ] ifp ] unit-test
+[ 2 ] [ 0 [ 1 ] [ 2 ] ifp ] unit-test
 
-{ 3 }
+[ 3 ]
 [ { { 0 [ 1 ] }
     { 0 [ 2 ] }
     { 1 [ 3 ] }
     [ 4 ]
   } casep ] unit-test
 
-{ 4 }
+[ 4 ]
 [ { { 0 [ 1 ] }
     { 0 [ 2 ] }
     { 0 [ 3 ] }
     [ 4 ]
   } casep ] unit-test
 
-{ 1 1 } [ 1 {
+[ 1 1 ] [ 1 {
     { 1 [ 1 ] }
     { 0 [ 2 ] }
     { 0 [ 3 ] }
     [ 4 ]
     } casep ] unit-test
 
-{ 1 4 } [ 1 {
+[ 1 4 ] [ 1 {
     { 0 [ 1 ] }
     { 0 [ 2 ] }
     { 0 [ 3 ] }
     [ 4 ]
     } casep ] unit-test
 
-{ 2 } [ 0.7 {
+[ 2 ] [ 0.7 {
     { 0.3 [ 1 ] }
     { 0.5 [ 2 ] }
     [ 2 ] } (casep) ] unit-test
 
-{ { { 1/3 [ 1 ] }
+[ { { 1/3 [ 1 ] }
     { 1/3 [ 2 ] }
-    { 1/3 [ 3 ] } } }
+    { 1/3 [ 3 ] } } ]
 [ { [ 1 ] [ 2 ] [ 3 ] } call-random>casep ] unit-test
 
-{ { { 1/2 [ 1 ] }
+[ { { 1/2 [ 1 ] }
     { 1/4 [ 2 ] }
-    { 1/4 [ 3 ] } } }
+    { 1/4 [ 3 ] } } ]
 [ { { 1/2 [ 1 ] }
     { 1/2 [ 2 ] }
     { 1 [ 3 ] } } direct>conditional ] unit-test
 
-{ { { 1/2 [ 1 ] }
+[ { { 1/2 [ 1 ] }
     { 1/4 [ 2 ] }
-    { [ 3 ] } } }
+    { [ 3 ] } } ]
 [ { { 1/2 [ 1 ] }
     { 1/2 [ 2 ] }
     { [ 3 ] } } direct>conditional ] unit-test
 
-{ f } [ { { 0.6 [ 1 ] }
+[ f ] [ { { 0.6 [ 1 ] }
   { 0.6 [ 2 ] } } good-probabilities? ] unit-test
-{ f } [ { { 0.3 [ 1 ] }
+[ f ] [ { { 0.3 [ 1 ] }
   { 0.6 [ 2 ] } } good-probabilities? ] unit-test
-{ f } [ { { -0.6 [ 1 ] }
+[ f ] [ { { -0.6 [ 1 ] }
   { 1.4 [ 2 ] } } good-probabilities? ] unit-test
-{ f } [ { { -0.6 [ 1 ] }
+[ f ] [ { { -0.6 [ 1 ] }
   [ 2 ] } good-probabilities? ] unit-test
-{ t } [ { { 0.6 [ 1 ] }
+[ t ] [ { { 0.6 [ 1 ] }
   [ 2 ] } good-probabilities? ] unit-test
-{ t } [ { { 0.6 [ 1 ] }
+[ t ] [ { { 0.6 [ 1 ] }
   { 0.4 [ 2 ] } } good-probabilities? ] unit-test