PageRenderTime 33ms CodeModel.GetById 25ms app.highlight 6ms RepoModel.GetById 1ms app.codeStats 0ms

/sprites/sprites-tests.factor

http://github.com/jckarter/papier
Unknown | 20 lines | 19 code | 1 blank | 0 comment | 0 complexity | 4ac84cf8b808b596f063e059a0015ef0 MD5 | raw file
 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