From 6c06054ed6b96655d0a906692f5986d721e81d59 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Wed, 12 Feb 2020 08:38:41 -0800 Subject: [PATCH] tetris.game: fix tests. --- extra/tetris/game/game-tests.factor | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/extra/tetris/game/game-tests.factor b/extra/tetris/game/game-tests.factor index d172c1a996..bd3f1bc08c 100644 --- a/extra/tetris/game/game-tests.factor +++ b/extra/tetris/game/game-tests.factor @@ -1,16 +1,15 @@ USING: accessors kernel tetris.game tetris.board tetris.piece tools.test sequences ; -FROM: tetris.game => level>> ; { t } [ [ current-piece ] [ next-piece ] bi and t f ? ] unit-test { t } [ { 1 1 } can-move? ] unit-test { t } [ { 1 1 } tetris-move ] unit-test { 1 } [ dup { 1 1 } tetris-move drop current-piece location>> second ] unit-test -{ 1 } [ level>> ] unit-test -{ 1 } [ 9 >>rows level>> ] unit-test -{ 2 } [ 10 >>rows level>> ] unit-test +{ 1 } [ level ] unit-test +{ 1 } [ 9 >>rows level ] unit-test +{ 2 } [ 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 -{ 1 } [ dup 3 score-rows dup 3 score-rows dup 3 score-rows level>> ] unit-test -{ 2 } [ dup 4 score-rows dup 4 score-rows dup 2 score-rows level>> ] unit-test +{ 1 } [ dup 3 score-rows dup 3 score-rows dup 3 score-rows level ] unit-test +{ 2 } [ dup 4 score-rows dup 4 score-rows dup 2 score-rows level ] unit-test