extra/sokoban/game/game-tests.factor

   1 USING: accessors kernel sokoban.game sokoban.board sokoban.piece tools.test
   2 sequences ;
   3
   4 ! { t } [ <default-sokoban> [ current-piece ] [ next-piece ] bi and t f ? ] unit-test
   5 ! { t } [ <default-sokoban> { 1 1 } can-move? ] unit-test
   6 { t } [ <default-sokoban> { 1 1 } sokoban-move ] unit-test
   7 ! { 1 } [ <default-sokoban> dup { 1 1 } sokoban-move drop current-piece location>> second ] unit-test
   8 { 1 } [ <default-sokoban> level>> ] unit-test
   9 { 1 } [ <default-sokoban> 9 >>rows level>> ] unit-test
  10 { 2 } [ <default-sokoban> 10 >>rows level>> ] unit-test
  11 ! { 0 } [ 3 0 rows-score ] unit-test
  12 ! { 80 } [ 1 1 rows-score ] unit-test
  13 ! { 4800 } [ 3 4 rows-score ] unit-test
  14 ! { 1 } [ <default-sokoban> dup 3 score-rows dup 3 score-rows dup 3 score-rows level ] unit-test
  15 ! { 2 } [ <default-sokoban> dup 4 score-rows dup 4 score-rows dup 2 score-rows level ] unit-test