/sprites/sprites-tests.factor

http://github.com/jckarter/papier · Factor · 20 lines · 18 code · 1 blank · 1 comment · 0 complexity · 4ac84cf8b808b596f063e059a0015ef0 MD5 · raw file 

    

  1. ! (c)2010 Joe Groff bsd license
    2. 

  2. USING: combinators papier.sprites tools.test ;
    3. 

  3. IN: papier.sprites.tests
    4. 

  4. 

  5. [ 10 10 10 11 11 12 10 ]
    6. 

  6. [
    7. 

  7.     {
    8. 

  8.         T{ animation-frame f 10 3 }
    9. 

  9.         T{ animation-frame f 11 2 }
    10. 

  10.         T{ animation-frame f 12 1 }
    11. 

  11.     } <animation-cursor> {
    12. 

  12.         [ cursor++ ]
    13. 

  13.         [ cursor++ ]
    14. 

  14.         [ cursor++ ]
    15. 

  15.         [ cursor++ ]
    16. 

  16.         [ cursor++ ]
    17. 

  17.         [ cursor++ ]
    18. 

  18.         [ cursor++ ]
    19. 

  19.     } cleave
    20. 

  20. ] unit-test
    21.