extra/tetris/game/game-tests.factor

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