factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test

[factor.git] / basis / combinators / random / random-tests.factor

diff --git a/basis/combinators/random/random-tests.factor b/basis/combinators/random/random-tests.factor
index 32f28745385bb7dd4a15a28ff5d6a7343005e3f4..46282a3222a2f7d9494b7bb75fba0146e4f30a7b 100644 (file)
--- a/basis/combinators/random/random-tests.factor
+++ b/basis/combinators/random/random-tests.factor
@@ -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