2009-02-09 21:57:26 -05:00
|
|
|
USING: images.bitmap images.viewer io.encodings.binary
|
2009-03-14 01:01:01 -04:00
|
|
|
io.files io.files.unique kernel tools.test images.loader
|
|
|
|
|
literals sequences ;
|
2009-02-09 21:57:26 -05:00
|
|
|
IN: images.bitmap.tests
|
|
|
|
|
|
2009-03-14 01:01:01 -04:00
|
|
|
CONSTANT: test-bitmap24 "vocab:images/test-images/thiswayup24.bmp"
|
2009-02-09 21:57:26 -05:00
|
|
|
|
2009-03-14 01:01:01 -04:00
|
|
|
CONSTANT: test-bitmap8 "vocab:images/test-images/rgb8bit.bmp"
|
2009-02-09 21:57:26 -05:00
|
|
|
|
2009-03-14 01:01:01 -04:00
|
|
|
CONSTANT: test-bitmap4 "vocab:images/test-images/rgb4bit.bmp"
|
2009-02-09 21:57:26 -05:00
|
|
|
|
2009-03-14 01:01:01 -04:00
|
|
|
CONSTANT: test-bitmap1 "vocab:images/test-images/1bit.bmp"
|
2009-02-09 21:57:26 -05:00
|
|
|
|
|
|
|
|
[ t ]
|
|
|
|
|
[
|
|
|
|
|
test-bitmap24
|
2009-03-02 20:38:28 -05:00
|
|
|
[ binary file-contents ] [ load-image ] bi
|
2009-02-09 21:57:26 -05:00
|
|
|
|
|
|
|
|
"test-bitmap24" unique-file
|
|
|
|
|
[ save-bitmap ] [ binary file-contents ] bi =
|
|
|
|
|
] unit-test
|
2009-03-14 01:01:01 -04:00
|
|
|
|
|
|
|
|
{
|
|
|
|
|
$ test-bitmap8
|
|
|
|
|
$ test-bitmap24
|
|
|
|
|
"vocab:ui/render/test/reference.bmp"
|
|
|
|
|
} [ [ ] swap [ load-image drop ] curry unit-test ] each
|
