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

[factor.git] / basis / random / mersenne-twister / mersenne-twister-tests.factor

diff --git a/basis/random/mersenne-twister/mersenne-twister-tests.factor b/basis/random/mersenne-twister/mersenne-twister-tests.factor
index ede3c92f517b60cd2acf4f2c5b2d7e3442a3c244..32b7712019386b37b46a08c27bc963ff266d8e24 100644 (file)
--- a/basis/random/mersenne-twister/mersenne-twister-tests.factor
+++ b/basis/random/mersenne-twister/mersenne-twister-tests.factor
@@ -5,7 +5,7 @@ IN: random.mersenne-twister.tests
 : check-random ( max -- ? )
     [ random 0 ] keep between? ;
 
-[ t ] [ 100 [ drop 674 check-random ] all-integers? ] unit-test
+{ t } [ 100 [ drop 674 check-random ] all-integers? ] unit-test
 
 : randoms ( -- seq )
     100 [ 100 random ] replicate ;
@@ -13,22 +13,22 @@ IN: random.mersenne-twister.tests
 : test-rng ( seed quot -- )
     [ <mersenne-twister> ] dip with-random ; inline
 
-[ f ] [ 1234 [ randoms randoms = ] test-rng ] unit-test
+{ f } [ 1234 [ randoms randoms = ] test-rng ] unit-test
 
-[ 1333075495 ] [
+{ 1333075495 } [
     0 [ 1000 [ drop random-generator get random-32* drop ] each-integer random-generator get random-32* ] test-rng
 ] unit-test
 
-[ 1575309035 ] [
+{ 1575309035 } [
     0 [ 10000 [ drop random-generator get random-32* drop ] each-integer random-generator get random-32* ] test-rng
 ] unit-test
 
 
-[ 3 ] [ 101 [ 3 random-bytes length ] test-rng ] unit-test
-[ 33 ] [ 101 [ 33 random-bytes length ] test-rng ] unit-test
-[ t ] [ 101 [ 100 random-bits log2 90 > ] test-rng ] unit-test
+{ 3 } [ 101 [ 3 random-bytes length ] test-rng ] unit-test
+{ 33 } [ 101 [ 33 random-bytes length ] test-rng ] unit-test
+{ t } [ 101 [ 100 random-bits log2 90 > ] test-rng ] unit-test
 
-[ t ]
+{ t }
 [
     1234 <mersenne-twister>
     [ random-32* ] [ 1234 seed-random random-32* ] bi =