Better unit tests for images.bitmap
parent
c46b400d40
commit
3c29c92f5b
basis/images/bitmap
|
@ -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
|
Loading…
Reference in New Issue