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

[factor.git] / basis / grouping / grouping-tests.factor

diff --git a/basis/grouping/grouping-tests.factor b/basis/grouping/grouping-tests.factor
index ea3b995e4e6b904503741097f6f176e222a56198..a6e30d9d61588b2d378ed6657f8e21ca3fa12271 100644 (file)
--- a/basis/grouping/grouping-tests.factor
+++ b/basis/grouping/grouping-tests.factor
@@ -4,12 +4,12 @@ IN: grouping.tests
 
 [ { 1 2 3 } 0 group ] must-fail
 
-{ { "hell" "o wo" "rld" } } [ "hello world" 4 group ] unit-test
+[ { "hell" "o wo" "rld" } ] [ "hello world" 4 group ] unit-test
 
-{ 0 } [ { } 2 <clumps> length ] unit-test
-{ 0 } [ { 1 } 2 <clumps> length ] unit-test
-{ 1 } [ { 1 2 } 2 <clumps> length ] unit-test
-{ 2 } [ { 1 2 3 } 2 <clumps> length ] unit-test
+[ 0 ] [ { } 2 <clumps> length ] unit-test
+[ 0 ] [ { 1 } 2 <clumps> length ] unit-test
+[ 1 ] [ { 1 2 } 2 <clumps> length ] unit-test
+[ 2 ] [ { 1 2 3 } 2 <clumps> length ] unit-test
 
 { { } } [ { 1 } 2 clump ] unit-test
 { { { 1 2 } } } [ { 1 2 } 2 clump ] unit-test
@@ -18,23 +18,23 @@ IN: grouping.tests
 { 0 } [ { } 2 <circular-clumps> length ] unit-test
 { 1 } [ { 1 } 2 <circular-clumps> length ] unit-test
 
-{ 2 } [ { 1 2 } 2 <circular-clumps> length ] unit-test
-{ 3 } [ { 1 2 3 } 2 <circular-clumps> length ] unit-test
+[ 2 ] [ { 1 2 } 2 <circular-clumps> length ] unit-test
+[ 3 ] [ { 1 2 3 } 2 <circular-clumps> length ] unit-test
 
-{ { { 1 1 }                 } } [ { 1     } 2 circular-clump ] unit-test
-{ { { 1 2 } { 2 1 }         } } [ { 1 2   } 2 circular-clump ] unit-test
-{ { { 1 2 } { 2 3 } { 3 1 } } } [ { 1 2 3 } 2 circular-clump ] unit-test
+[ { { 1 1 }                 } ] [ { 1     } 2 circular-clump ] unit-test
+[ { { 1 2 } { 2 1 }         } ] [ { 1 2   } 2 circular-clump ] unit-test
+[ { { 1 2 } { 2 3 } { 3 1 } } ] [ { 1 2 3 } 2 circular-clump ] unit-test
 
-{ 1 } [ V{ } 2 <clumps> 0 over set-length seq>> length ] unit-test
-{ 2 } [ V{ } 2 <clumps> 1 over set-length seq>> length ] unit-test
-{ 3 } [ V{ } 2 <clumps> 2 over set-length seq>> length ] unit-test
+[ 1 ] [ V{ } 2 <clumps> 0 over set-length seq>> length ] unit-test
+[ 2 ] [ V{ } 2 <clumps> 1 over set-length seq>> length ] unit-test
+[ 3 ] [ V{ } 2 <clumps> 2 over set-length seq>> length ] unit-test
 
-{ { { 1 2 } { 2 3 } } } [ { 1 2 3 } 2 <clumps> [ >array ] map ] unit-test
+[ { { 1 2 } { 2 3 } } ] [ { 1 2 3 } 2 <clumps> [ >array ] map ] unit-test
 
-{ f } [ [ { } { } "Hello" ] all-equal? ] unit-test
-{ f } [ [ { 2 } { } { } ] all-equal? ] unit-test
-{ t } [ [ ] all-equal? ] unit-test
-{ t } [ [ 1234 ] all-equal? ] unit-test
-{ f } [ [ 1.0 1 1 ] all-equal? ] unit-test
-{ t } [ { 1 2 3 4 } [ < ] monotonic? ] unit-test
-{ f } [ { 1 2 3 4 } [ > ] monotonic? ] unit-test
+[ f ] [ [ { } { } "Hello" ] all-equal? ] unit-test
+[ f ] [ [ { 2 } { } { } ] all-equal? ] unit-test
+[ t ] [ [ ] all-equal? ] unit-test
+[ t ] [ [ 1234 ] all-equal? ] unit-test
+[ f ] [ [ 1.0 1 1 ] all-equal? ] unit-test
+[ t ] [ { 1 2 3 4 } [ < ] monotonic? ] unit-test
+[ f ] [ { 1 2 3 4 } [ > ] monotonic? ] unit-test