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

[factor.git] / extra / tetris / piece / piece-tests.factor

diff --git a/extra/tetris/piece/piece-tests.factor b/extra/tetris/piece/piece-tests.factor
index 05e4faa68fd9a6dc3b806b0b0bf424c292fb6cd4..bd857f0ed4d11282807ff6653045cf4865b80089 100644 (file)
--- a/extra/tetris/piece/piece-tests.factor
+++ b/extra/tetris/piece/piece-tests.factor
@@ -4,20 +4,20 @@ USING: accessors kernel tetris.tetromino tetris.piece tools.test sequences array
 
 ! these two tests rely on the first rotation of the first tetromino being the
 ! 'I' tetromino in its vertical orientation.
-[ 4 ] [ tetrominoes get first states>> first blocks-width ] unit-test
-[ 1 ] [ tetrominoes get first states>> first blocks-height ] unit-test
+{ 4 } [ tetrominoes get first states>> first blocks-width ] unit-test
+{ 1 } [ tetrominoes get first states>> first blocks-height ] unit-test
 
-[ { 0 0 } ] [ random-tetromino <piece> location>> ] unit-test
-[ 0 ] [ 10 <random-piece> rotation>> ] unit-test
+{ { 0 0 } } [ random-tetromino <piece> location>> ] unit-test
+{ 0 } [ 10 <random-piece> rotation>> ] unit-test
 
-[ { { 0 0 } { 1 0 } { 2 0 } { 3 0 } } ]
+{ { { 0 0 } { 1 0 } { 2 0 } { 3 0 } } }
 [ tetrominoes get first <piece> piece-blocks ] unit-test
 
-[ { { 0 0 } { 0 1 } { 0 2 } { 0 3 } } ]
+{ { { 0 0 } { 0 1 } { 0 2 } { 0 3 } } }
 [ tetrominoes get first <piece> 1 rotate-piece piece-blocks ] unit-test
 
-[ { { 1 1 } { 2 1 } { 3 1 } { 4 1 } } ]
+{ { { 1 1 } { 2 1 } { 3 1 } { 4 1 } } }
 [ tetrominoes get first <piece> { 1 1 } move-piece piece-blocks ] unit-test
 
-[ 3 ] [ tetrominoes get second <piece> piece-width ] unit-test
-[ 2 ] [ tetrominoes get second <piece> 1 rotate-piece piece-width ] unit-test
+{ 3 } [ tetrominoes get second <piece> piece-width ] unit-test
+{ 2 } [ tetrominoes get second <piece> 1 rotate-piece piece-width ] unit-test