/sprites/sprites-tests.factor

 1! (c)2010 Joe Groff bsd license
 2USING: combinators papier.sprites tools.test ;
 3IN: 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