sokoban: fix more tests

diff --git a/extra/sokoban/game/game-tests.factor b/extra/sokoban/game/game-tests.factor
index 190677f6c3d84516bdfd246ade1f079fef92ac03..07cd3c20b23f45c26e94bc1ec6de6043c7a00000 100644 (file)
--- a/extra/sokoban/game/game-tests.factor
+++ b/extra/sokoban/game/game-tests.factor
@@ -5,9 +5,9 @@ sequences ;
 ! { t } [ <default-sokoban> { 1 1 } can-move? ] unit-test
 { t } [ <default-sokoban> { 1 1 } sokoban-move ] unit-test
 ! { 1 } [ <default-sokoban> dup { 1 1 } sokoban-move drop current-piece location>> second ] unit-test
-{ 1 } [ <default-sokoban> level>> ] unit-test
-{ 1 } [ <default-sokoban> 9 >>rows level>> ] unit-test
-{ 2 } [ <default-sokoban> 10 >>rows level>> ] unit-test
+{ 0 } [ <default-sokoban> level>> ] unit-test
+! { 1 } [ <default-sokoban> 9 >>rows level>> ] unit-test
+! { 2 } [ <default-sokoban> 10 >>rows level>> ] unit-test
 ! { 0 } [ 3 0 rows-score ] unit-test
 ! { 80 } [ 1 1 rows-score ] unit-test
 ! { 4800 } [ 3 4 rows-score ] unit-test