extra/papier/sprites/sprites-tests.factor

   1 ! (c)2010 Joe Groff bsd license
   2 USING: combinators papier.sprites tools.test ;
   3 IN: papier.sprites.tests
   4
   5 [ 10 10 10 11 11 12 10 ]
   6 [
   7     {
   8         T{ animation-frame f 10 3 }
   9         T{ animation-frame f 11 2 }
  10         T{ animation-frame f 12 1 }
  11     } <animation-cursor> {
  12         [ cursor++ ]
  13         [ cursor++ ]
  14         [ cursor++ ]
  15         [ cursor++ ]
  16         [ cursor++ ]
  17         [ cursor++ ]
  18         [ cursor++ ]
  19     } cleave
  20 ] unit-test