44 lines
1.1 KiB
Factor
44 lines
1.1 KiB
Factor
USING: images.bitmap images.viewer io.encodings.binary
|
|
io.files io.files.unique kernel tools.test images.loader
|
|
literals sequences checksums.md5 checksums ;
|
|
IN: images.bitmap.tests
|
|
|
|
CONSTANT: test-bitmap24 "vocab:images/test-images/thiswayup24.bmp"
|
|
|
|
CONSTANT: test-bitmap8 "vocab:images/test-images/rgb8bit.bmp"
|
|
|
|
CONSTANT: test-bitmap4 "vocab:images/test-images/rgb4bit.bmp"
|
|
|
|
CONSTANT: test-bitmap1 "vocab:images/test-images/1bit.bmp"
|
|
|
|
CONSTANT: test-40 "vocab:images/test-images/40red24bit.bmp"
|
|
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
|
|
"vocab:ui/render/test/reference.bmp"
|
|
} [ [ ] swap [ load-image drop ] curry unit-test ] each
|
|
|
|
|
|
: test-bitmap-save ( path -- ? )
|
|
[ md5 checksum-file ]
|
|
[ load-image ] bi
|
|
"bitmap-save-test" ".bmp" make-unique-file
|
|
[ save-bitmap ]
|
|
[ md5 checksum-file ] bi = ;
|
|
|
|
[
|
|
t
|
|
] [
|
|
${
|
|
test-40
|
|
test-41
|
|
test-42
|
|
test-43
|
|
test-bitmap24
|
|
} [ test-bitmap-save ] all?
|
|
] unit-test
|