steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

use literal-arrays

Doug Coleman 2009-05-17 13:36:53 -05:00
parent b5e315d2cd
commit 68ceb33891
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
basis/images/bitmap/bitmap-tests.factor
View File

@ -17,9 +17,9 @@ CONSTANT: test-41 "vocab:images/test-images/41red24bit.bmp"
CONSTANT: test-42 "vocab:images/test-images/42red24bit.bmp" CONSTANT: test-42 "vocab:images/test-images/42red24bit.bmp"
CONSTANT: test-43 "vocab:images/test-images/43red24bit.bmp" CONSTANT: test-43 "vocab:images/test-images/43red24bit.bmp"
{ ${
$ test-bitmap8 test-bitmap8
$ test-bitmap24 test-bitmap24
"vocab:ui/render/test/reference.bmp" "vocab:ui/render/test/reference.bmp"
} [ [ ] swap [ load-image drop ] curry unit-test ] each } [ [ ] swap [ load-image drop ] curry unit-test ] each
@ -34,11 +34,11 @@ CONSTANT: test-43 "vocab:images/test-images/43red24bit.bmp"
[ [
t t
] [ ] [
{ ${
$ test-40 test-40
$ test-41 test-41
$ test-42 test-42
$ test-43 test-43
$ test-bitmap24 test-bitmap24
} [ test-bitmap-save ] all? } [ test-bitmap-save ] all?
] unit-test ] unit-test