Better unit tests for images.bitmap

db4
Slava Pestov 2009-03-14 00:01:01 -05:00
parent c46b400d40
commit 3c29c92f5b
1 changed files with 12 additions and 9 deletions
basis/images/bitmap

View File

@ -1,18 +1,15 @@
USING: images.bitmap images.viewer io.encodings.binary
io.files io.files.unique kernel tools.test images.loader ;
io.files io.files.unique kernel tools.test images.loader
literals sequences ;
IN: images.bitmap.tests
: test-bitmap24 ( -- path )
"vocab:images/test-images/thiswayup24.bmp" ;
CONSTANT: test-bitmap24 "vocab:images/test-images/thiswayup24.bmp"
: test-bitmap8 ( -- path )
"vocab:images/test-images/rgb8bit.bmp" ;
CONSTANT: test-bitmap8 "vocab:images/test-images/rgb8bit.bmp"
: test-bitmap4 ( -- path )
"vocab:images/test-images/rgb4bit.bmp" ;
CONSTANT: test-bitmap4 "vocab:images/test-images/rgb4bit.bmp"
: test-bitmap1 ( -- path )
"vocab:images/test-images/1bit.bmp" ;
CONSTANT: test-bitmap1 "vocab:images/test-images/1bit.bmp"
[ t ]
[
@ -22,3 +19,9 @@ IN: images.bitmap.tests
"test-bitmap24" unique-file
[ save-bitmap ] [ binary file-contents ] bi =
] unit-test
{
$ test-bitmap8
$ test-bitmap24
"vocab:ui/render/test/reference.bmp"
} [ [ ] swap [ load-image drop ] curry unit-test ] each