contrib/tetris/test/tetris.factor

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