From 0d878f6a0817e3a5a8ebcc6b98a58a8c3baafc47 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sun, 31 Jul 2022 22:18:41 -0700
Subject: [PATCH] sokoban: fix more tests

---
 extra/sokoban/game/game-tests.factor | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/extra/sokoban/game/game-tests.factor b/extra/sokoban/game/game-tests.factor
index 190677f6c3..07cd3c20b2 100644
--- 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
-- 
2.34.1