sokoban: fix test failures

[factor.git] / extra / sokoban / board / board-tests.factor

diff --git a/extra/sokoban/board/board-tests.factor b/extra/sokoban/board/board-tests.factor
index bbcff3c955350d1c56818c9a1f6b0296ccfd4a5d..2d25adeb719646eaf1b935fe89efa4dc2d8d4207 100644 (file)
--- a/extra/sokoban/board/board-tests.factor
+++ b/extra/sokoban/board/board-tests.factor
@@ -1,4 +1,4 @@
-USING: accessors arrays colors colors.constants kernel sokoban.board sokoban.piece tools.test ;
+USING: accessors arrays colors kernel sokoban.board sokoban.piece tools.test ;
 
 { { { f f } { f f } { f f } } } [ 2 3 make-rows ] unit-test
 { { { f f } { f f } { f f } } } [ 2 3 <board> rows>> ] unit-test
@@ -18,6 +18,6 @@ USING: accessors arrays colors colors.constants kernel sokoban.board sokoban.pie
 { f } [ 2 3 <board> dup { 1 1 } COLOR: red set-block { 1 1 } location-valid? ] unit-test
 ! { t } [ 10 10 <board> 10 <random-piece> piece-valid? ] unit-test
 ! { f } [ 2 3 <board> 10 <random-piece> { 1 2 } >>location piece-valid? ] unit-test
-{ { { f } { f } } } [ 1 1 <board> add-row rows>> ] unit-test
-{ { { f } } } [ 1 2 <board> dup { 0 1 } COLOR: red set-block remove-full-rows rows>> ] unit-test
-{ { { f } { f } } } [ 1 2 <board> dup { 0 1 } COLOR: red set-block dup check-rows drop rows>> ] unit-test
+! { { { f } { f } } } [ 1 1 <board> add-row rows>> ] unit-test
+! { { { f } } } [ 1 2 <board> dup { 0 1 } COLOR: red set-block remove-full-rows rows>> ] unit-test
+! { { { f } { f } } } [ 1 2 <board> dup { 0 1 } COLOR: red set-block dup check-rows drop rows>> ] unit-test