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

use literal-arrays

db4
Doug Coleman 2009-05-17 13:36:53 -05:00
parent f1f1a26b60
commit 8b37eced05
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-43 "vocab:images/test-images/43red24bit.bmp"
{
$ test-bitmap8
$ test-bitmap24
${
test-bitmap8
test-bitmap24
"vocab:ui/render/test/reference.bmp"
} [ [ ] swap [ load-image drop ] curry unit-test ] each
@ -34,11 +34,11 @@ CONSTANT: test-43 "vocab:images/test-images/43red24bit.bmp"
[
t
] [
{
$ test-40
$ test-41
$ test-42
$ test-43
$ test-bitmap24
${
test-40
test-41
test-42
test-43
test-bitmap24
} [ test-bitmap-save ] all?
] unit-test