Revert "factor: rename [ ] [ ] unit-test -> { } [ ] unit-test using a refactoring...

[factor.git] / basis / persistent / vectors / vectors-tests.factor

diff --git a/basis/persistent/vectors/vectors-tests.factor b/basis/persistent/vectors/vectors-tests.factor
index 0a2e9e1645389688752548658d23929bed5c1856..6d340ca78a95b6575613c26caecdc81abfe7b84a 100644 (file)
--- a/basis/persistent/vectors/vectors-tests.factor
+++ b/basis/persistent/vectors/vectors-tests.factor
@@ -3,17 +3,17 @@ USING: accessors tools.test persistent.vectors
 persistent.sequences sequences kernel arrays random namespaces
 vectors math math.order ;
 
-{ 0 } [ PV{ } length ] unit-test
+[ 0 ] [ PV{ } length ] unit-test
 
-{ 1 } [ 3 PV{ } ppush length ] unit-test
+[ 1 ] [ 3 PV{ } ppush length ] unit-test
 
-{ 3 } [ 3 PV{ } ppush first ] unit-test
+[ 3 ] [ 3 PV{ } ppush first ] unit-test
 
-{ PV{ 3 1 3 3 7 } } [
+[ PV{ 3 1 3 3 7 } ] [
     PV{ } { 3 1 3 3 7 } [ swap ppush ] each
 ] unit-test
 
-{ { 3 1 3 3 7 } } [
+[ { 3 1 3 3 7 } ] [
     PV{ } { 3 1 3 3 7 } [ swap ppush ] each >array
 ] unit-test
 
@@ -21,10 +21,10 @@ vectors math math.order ;
     [ t ] swap [ iota dup >persistent-vector sequence= ] curry unit-test
 ] each
 
-{ } [ 10000 [ 16 random-bits ] PV{ } replicate-as "1" set ] unit-test
-{ } [ "1" get >vector "2" set ] unit-test
+[ ] [ 10000 [ 16 random-bits ] PV{ } replicate-as "1" set ] unit-test
+[ ] [ "1" get >vector "2" set ] unit-test
 
-{ t } [
+[ t ] [
     3000 iota [
         drop
         16 random-bits 10000 random
@@ -36,30 +36,30 @@ vectors math math.order ;
 
 [ PV{ } ppop ] [ empty-error? ] must-fail-with
 
-{ t } [ PV{ 3 } ppop empty? ] unit-test
+[ t ] [ PV{ 3 } ppop empty? ] unit-test
 
-{ PV{ 3 7 } } [ PV{ 3 7 6 } ppop ] unit-test
+[ PV{ 3 7 } ] [ PV{ 3 7 6 } ppop ] unit-test
 
-{ PV{ 3 7 6 5 } } [ 5 PV{ 3 7 6 } ppush ] unit-test
+[ PV{ 3 7 6 5 } ] [ 5 PV{ 3 7 6 } ppush ] unit-test
 
-{ } [ PV{ } "1" set ] unit-test
-{ } [ V{ } clone "2" set ] unit-test
+[ ] [ PV{ } "1" set ] unit-test
+[ ] [ V{ } clone "2" set ] unit-test
 
 : push/pop-test ( vec -- vec' ) 3 swap ppush 3 swap ppush ppop ;
 
-{ } [ PV{ } 10000 [ push/pop-test ] times drop ] unit-test
+[ ] [ PV{ } 10000 [ push/pop-test ] times drop ] unit-test
 
-{ PV{ } } [
+[ PV{ } ] [
     PV{ }
     10000 [ 1 swap ppush ] times
     10000 [ ppop ] times
 ] unit-test
 
-{ t } [
+[ t ] [
     10000 iota >persistent-vector 752 [ ppop ] times dup length iota sequence=
 ] unit-test
 
-{ t } [
+[ t ] [
     100 iota [
         drop
         100 random [