From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 1 Aug 2022 05:18:41 +0000 (-0700)
Subject: sokoban: fix more tests
X-Git-Tag: 0.99~1240
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=0d878f6a0817e3a5a8ebcc6b98a58a8c3baafc47

sokoban: fix more tests
---

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