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

images.testing: change tests to require and use image-class. 

This handles the case where you are testing image-classes that are not
registered with the images.loader.
db4
John Benediktsson 2014-03-14 08:00:42 -07:00
parent 4e206f4181
commit aa2f21507d
9 changed files with 288 additions and 286 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/images/bitmap/bitmap-tests.factor
View File

@ -4,8 +4,8 @@ IN: images.bitmap.tests
! "vocab:images/testing/bmp/1bit.bmp" decode-test
! "vocab:images/testing/bmp/rgb_4bit.bmp" decode-test
"vocab:images/testing/bmp/rgb_8bit.bmp"
[ decode-test ] [ bmp-image encode-test ] bi
"vocab:images/testing/bmp/rgb_8bit.bmp" bmp-image
[ decode-test ] [ encode-test ] 2bi
"vocab:images/testing/bmp/42red_24bit.bmp"
[ decode-test ] [ bmp-image encode-test ] bi
"vocab:images/testing/bmp/42red_24bit.bmp" bmp-image
[ decode-test ] [ encode-test ] 2bi

12
extra/images/gif/gif-tests.factor
View File

@ -5,12 +5,12 @@ io.encodings.binary io.files kernel math math.bitwise
namespaces sequences tools.test ;
IN: images.gif.tests
"vocab:images/testing/gif/circle.gif" decode-test
"vocab:images/testing/gif/checkmark.gif" decode-test
"vocab:images/testing/gif/monochrome.gif" decode-test
"vocab:images/testing/gif/alpha.gif" decode-test
"vocab:images/testing/gif/noise.gif" decode-test
"vocab:images/testing/gif/astronaut_animation.gif" decode-test
"vocab:images/testing/gif/circle.gif" gif-image decode-test
"vocab:images/testing/gif/checkmark.gif" gif-image decode-test
"vocab:images/testing/gif/monochrome.gif" gif-image decode-test
"vocab:images/testing/gif/alpha.gif" gif-image decode-test
"vocab:images/testing/gif/noise.gif" gif-image decode-test
"vocab:images/testing/gif/astronaut_animation.gif" gif-image decode-test
: path>gif ( path -- gif )
binary [ input-stream get load-gif ] with-file-reader ;

6
extra/images/pbm/pbm-tests.factor
View File

@ -1,7 +1,7 @@
! Copyright (C) 2010 Erik Charlebois.
! See http://factorcode.org/license.txt for BSD license.
USING: images.testing ;
USING: images.pbm images.testing ;
IN: images.pbm.tests
"vocab:images/testing/pbm/test.binary.pbm" decode-test
"vocab:images/testing/pbm/test.ascii.pbm" decode-test
"vocab:images/testing/pbm/test.binary.pbm" pbm-image decode-test
"vocab:images/testing/pbm/test.ascii.pbm" pbm-image decode-test

6
extra/images/pgm/pgm-tests.factor
View File

@ -1,7 +1,7 @@
! Copyright (C) 2010 Erik Charlebois.
! See http://factorcode.org/license.txt for BSD license.
USING: images.testing ;
USING: images.testing images.pgm ;
IN: images.pgm.tests
"vocab:images/testing/pgm/radial.binary.pgm" decode-test
"vocab:images/testing/pgm/radial.ascii.pgm" decode-test
"vocab:images/testing/pgm/radial.binary.pgm" pgm-image decode-test
"vocab:images/testing/pgm/radial.ascii.pgm" pgm-image decode-test

6
extra/images/pgm/pgm.factor
View File

@ -36,12 +36,12 @@ SINGLETON: pgm-image
read-number :> max
width height * :> npixels
max 256 >= :> wide
type {
{ "P2" [ [ 0 npixels read-numbers ] wide [ ushort-array{ } ] [ B{ } ] if make ] }
{ "P5" [ wide [ 2 ] [ 1 ] if npixels * read ] }
} case :> data
image new
L >>component-order
{ width height } >>dim
@ -53,7 +53,7 @@ M: pgm-image stream>image*
drop [ [ read-pgm ] throw-on-eof ] with-input-stream ;
M: pgm-image image>stream
drop {
2drop {
[ drop "P5\n" ascii encode write ]
[ dim>> first number>string " " append ascii encode write ]
[ dim>> second number>string "\n" append ascii encode write ]

492
extra/images/png/png-tests.factor
View File

@ -1,262 +1,262 @@
! Copyright (C) 2009 Doug Coleman, Keith Lazuka
! See http://factorcode.org/license.txt for BSD license.
USING: images.testing io.directories ;
USING: images.testing io.directories images.png ;
IN: images.png.tests
! Test files from PngSuite (http://www.libpng.org/pub/png/pngsuite.html)
! The subset of the suite that should work given the current implementation.
"vocab:images/testing/png" [
"basi0g01.png" decode-test
"basi0g02.png" decode-test
"basi0g04.png" decode-test
"basi0g08.png" decode-test
"basi0g16.png" decode-test
"basi2c08.png" decode-test
"basi3p01.png" decode-test
"basi3p02.png" decode-test
"basi3p04.png" decode-test
"basi3p08.png" decode-test
"basn0g01.png" decode-test
"basn0g02.png" decode-test
"basn0g04.png" decode-test
"basn0g08.png" decode-test
"basn0g16.png" decode-test
"basn2c08.png" decode-test
"basn3p01.png" decode-test
"basn3p02.png" decode-test
"basn3p04.png" decode-test
"basn3p08.png" decode-test
"basn6a08.png" decode-test
"f00n2c08.png" decode-test
"f01n2c08.png" decode-test
"f02n2c08.png" decode-test
"f03n2c08.png" decode-test
"f04n2c08.png" decode-test
"s01i3p01.png" decode-test
"s01n3p01.png" decode-test
"s02i3p01.png" decode-test
"s02n3p01.png" decode-test
"s03i3p01.png" decode-test
"s03n3p01.png" decode-test
"s04i3p01.png" decode-test
"s04n3p01.png" decode-test
"s05i3p02.png" decode-test
"s05n3p02.png" decode-test
"s06i3p02.png" decode-test
"s06n3p02.png" decode-test
"s07i3p02.png" decode-test
"s07n3p02.png" decode-test
"s08i3p02.png" decode-test
"s08n3p02.png" decode-test
"s09i3p02.png" decode-test
"s32n3p04.png" decode-test
"s32i3p04.png" decode-test
"s33n3p04.png" decode-test
"s33i3p04.png" decode-test
"s34n3p04.png" decode-test
"s34i3p04.png" decode-test
"s35n3p04.png" decode-test
"s35i3p04.png" decode-test
"s36n3p04.png" decode-test
"s36i3p04.png" decode-test
"s37n3p04.png" decode-test
"s37i3p04.png" decode-test
"s38n3p04.png" decode-test
"s38i3p04.png" decode-test
"s39n3p04.png" decode-test
"s39i3p04.png" decode-test
"s40n3p04.png" decode-test
"s40i3p04.png" decode-test
"s07n3p02.png" decode-test
"z00n2c08.png" decode-test
"z03n2c08.png" decode-test
"z06n2c08.png" decode-test
"z09n2c08.png" decode-test
"basi0g01.png" png-image decode-test
"basi0g02.png" png-image decode-test
"basi0g04.png" png-image decode-test
"basi0g08.png" png-image decode-test
"basi0g16.png" png-image decode-test
"basi2c08.png" png-image decode-test
"basi3p01.png" png-image decode-test
"basi3p02.png" png-image decode-test
"basi3p04.png" png-image decode-test
"basi3p08.png" png-image decode-test
"basn0g01.png" png-image decode-test
"basn0g02.png" png-image decode-test
"basn0g04.png" png-image decode-test
"basn0g08.png" png-image decode-test
"basn0g16.png" png-image decode-test
"basn2c08.png" png-image decode-test
"basn3p01.png" png-image decode-test
"basn3p02.png" png-image decode-test
"basn3p04.png" png-image decode-test
"basn3p08.png" png-image decode-test
"basn6a08.png" png-image decode-test
"f00n2c08.png" png-image decode-test
"f01n2c08.png" png-image decode-test
"f02n2c08.png" png-image decode-test
"f03n2c08.png" png-image decode-test
"f04n2c08.png" png-image decode-test
"s01i3p01.png" png-image decode-test
"s01n3p01.png" png-image decode-test
"s02i3p01.png" png-image decode-test
"s02n3p01.png" png-image decode-test
"s03i3p01.png" png-image decode-test
"s03n3p01.png" png-image decode-test
"s04i3p01.png" png-image decode-test
"s04n3p01.png" png-image decode-test
"s05i3p02.png" png-image decode-test
"s05n3p02.png" png-image decode-test
"s06i3p02.png" png-image decode-test
"s06n3p02.png" png-image decode-test
"s07i3p02.png" png-image decode-test
"s07n3p02.png" png-image decode-test
"s08i3p02.png" png-image decode-test
"s08n3p02.png" png-image decode-test
"s09i3p02.png" png-image decode-test
"s32n3p04.png" png-image decode-test
"s32i3p04.png" png-image decode-test
"s33n3p04.png" png-image decode-test
"s33i3p04.png" png-image decode-test
"s34n3p04.png" png-image decode-test
"s34i3p04.png" png-image decode-test
"s35n3p04.png" png-image decode-test
"s35i3p04.png" png-image decode-test
"s36n3p04.png" png-image decode-test
"s36i3p04.png" png-image decode-test
"s37n3p04.png" png-image decode-test
"s37i3p04.png" png-image decode-test
"s38n3p04.png" png-image decode-test
"s38i3p04.png" png-image decode-test
"s39n3p04.png" png-image decode-test
"s39i3p04.png" png-image decode-test
"s40n3p04.png" png-image decode-test
"s40i3p04.png" png-image decode-test
"s07n3p02.png" png-image decode-test
"z00n2c08.png" png-image decode-test
"z03n2c08.png" png-image decode-test
"z06n2c08.png" png-image decode-test
"z09n2c08.png" png-image decode-test
] with-directory
! Test pngsuite
"vocab:images/testing/png/suite" [
"PngSuite.png" decode-test
"basi0g01.png" decode-test
"basi0g02.png" decode-test
"basi0g04.png" decode-test
"basi0g08.png" decode-test
"basi0g16.png" decode-test
"basi2c08.png" decode-test
"basi2c16.png" decode-test
"basi3p01.png" decode-test
"basi3p02.png" decode-test
"basi3p04.png" decode-test
"basi3p08.png" decode-test
"basi4a08.png" decode-test
"basi4a16.png" decode-test
"basi6a08.png" decode-test
"basi6a16.png" decode-test
"basn0g01.png" decode-test
"basn0g02.png" decode-test
"basn0g04.png" decode-test
"basn0g08.png" decode-test
"basn0g16.png" decode-test
"basn2c08.png" decode-test
"basn2c16.png" decode-test
"basn3p01.png" decode-test
"basn3p02.png" decode-test
"basn3p04.png" decode-test
"basn3p08.png" decode-test
"basn4a08.png" decode-test
"basn4a16.png" decode-test
"basn6a08.png" decode-test
"basn6a16.png" decode-test
"bgai4a08.png" decode-test
"bgai4a16.png" decode-test
"bgan6a08.png" decode-test
"bgan6a16.png" decode-test
"bgbn4a08.png" decode-test
"bggn4a16.png" decode-test
"bgwn6a08.png" decode-test
"bgyn6a16.png" decode-test
"ccwn2c08.png" decode-test
"ccwn3p08.png" decode-test
"cdfn2c08.png" decode-test
"cdhn2c08.png" decode-test
"cdsn2c08.png" decode-test
"cdun2c08.png" decode-test
"ch1n3p04.png" decode-test
"ch2n3p08.png" decode-test
"cm0n0g04.png" decode-test
"cm7n0g04.png" decode-test
"cm9n0g04.png" decode-test
"cs3n2c16.png" decode-test
"cs3n3p08.png" decode-test
"cs5n2c08.png" decode-test
"cs5n3p08.png" decode-test
"cs8n2c08.png" decode-test
"cs8n3p08.png" decode-test
"ct0n0g04.png" decode-test
"ct1n0g04.png" decode-test
"cten0g04.png" decode-test
"ctfn0g04.png" decode-test
"ctgn0g04.png" decode-test
"cthn0g04.png" decode-test
"ctjn0g04.png" decode-test
"ctzn0g04.png" decode-test
"f00n0g08.png" decode-test
"f00n2c08.png" decode-test
"f01n0g08.png" decode-test
"f01n2c08.png" decode-test
"f02n0g08.png" decode-test
"f02n2c08.png" decode-test
"f03n0g08.png" decode-test
"f03n2c08.png" decode-test
"f04n0g08.png" decode-test
"f04n2c08.png" decode-test
"f99n0g04.png" decode-test
"g03n0g16.png" decode-test
"g03n2c08.png" decode-test
"g03n3p04.png" decode-test
"g04n0g16.png" decode-test
"g04n2c08.png" decode-test
"g04n3p04.png" decode-test
"g05n0g16.png" decode-test
"g05n2c08.png" decode-test
"g05n3p04.png" decode-test
"g07n0g16.png" decode-test
"g07n2c08.png" decode-test
"g07n3p04.png" decode-test
"g10n0g16.png" decode-test
"g10n2c08.png" decode-test
"g10n3p04.png" decode-test
"g25n0g16.png" decode-test
"g25n2c08.png" decode-test
"g25n3p04.png" decode-test
"oi1n0g16.png" decode-test
"oi1n2c16.png" decode-test
"oi2n0g16.png" decode-test
"oi2n2c16.png" decode-test
"oi4n0g16.png" decode-test
"oi4n2c16.png" decode-test
"oi9n0g16.png" decode-test
"oi9n2c16.png" decode-test
"pngsuite_logo.png" decode-test
"pp0n2c16.png" decode-test
"pp0n6a08.png" decode-test
"ps1n0g08.png" decode-test
"ps1n2c16.png" decode-test
"ps2n0g08.png" decode-test
"ps2n2c16.png" decode-test
"s01i3p01.png" decode-test
"s01n3p01.png" decode-test
"s02i3p01.png" decode-test
"s02n3p01.png" decode-test
"s03i3p01.png" decode-test
"s03n3p01.png" decode-test
"s04i3p01.png" decode-test
"s04n3p01.png" decode-test
"s05i3p02.png" decode-test
"s05n3p02.png" decode-test
"s06i3p02.png" decode-test
"s06n3p02.png" decode-test
"s07i3p02.png" decode-test
"s07n3p02.png" decode-test
"s08i3p02.png" decode-test
"s08n3p02.png" decode-test
"s09i3p02.png" decode-test
"s09n3p02.png" decode-test
"s32i3p04.png" decode-test
"s32n3p04.png" decode-test
"s33i3p04.png" decode-test
"s33n3p04.png" decode-test
"s34i3p04.png" decode-test
"s34n3p04.png" decode-test
"s35i3p04.png" decode-test
"s35n3p04.png" decode-test
"s36i3p04.png" decode-test
"s36n3p04.png" decode-test
"s37i3p04.png" decode-test
"s37n3p04.png" decode-test
"s38i3p04.png" decode-test
"s38n3p04.png" decode-test
"s39i3p04.png" decode-test
"s39n3p04.png" decode-test
"s40i3p04.png" decode-test
"s40n3p04.png" decode-test
"tbbn0g04.png" decode-test
"tbbn1g04.png" decode-test
"tbbn2c16.png" decode-test
"tbbn3p08.png" decode-test
"tbgn2c16.png" decode-test
"tbgn3p08.png" decode-test
"tbrn2c08.png" decode-test
"tbwn0g16.png" decode-test
"tbwn1g16.png" decode-test
"tbwn3p08.png" decode-test
"tbyn3p08.png" decode-test
"tp0n0g08.png" decode-test
"tp0n1g08.png" decode-test
"tp0n2c08.png" decode-test
"tp0n3p08.png" decode-test
"tp1n3p08.png" decode-test
"z00n2c08.png" decode-test
"z03n2c08.png" decode-test
"z06n2c08.png" decode-test
"z09n2c08.png" decode-test
"PngSuite.png" png-image decode-test
"basi0g01.png" png-image decode-test
"basi0g02.png" png-image decode-test
"basi0g04.png" png-image decode-test
"basi0g08.png" png-image decode-test
"basi0g16.png" png-image decode-test
"basi2c08.png" png-image decode-test
"basi2c16.png" png-image decode-test
"basi3p01.png" png-image decode-test
"basi3p02.png" png-image decode-test
"basi3p04.png" png-image decode-test
"basi3p08.png" png-image decode-test
"basi4a08.png" png-image decode-test
"basi4a16.png" png-image decode-test
"basi6a08.png" png-image decode-test
"basi6a16.png" png-image decode-test
"basn0g01.png" png-image decode-test
"basn0g02.png" png-image decode-test
"basn0g04.png" png-image decode-test
"basn0g08.png" png-image decode-test
"basn0g16.png" png-image decode-test
"basn2c08.png" png-image decode-test
"basn2c16.png" png-image decode-test
"basn3p01.png" png-image decode-test
"basn3p02.png" png-image decode-test
"basn3p04.png" png-image decode-test
"basn3p08.png" png-image decode-test
"basn4a08.png" png-image decode-test
"basn4a16.png" png-image decode-test
"basn6a08.png" png-image decode-test
"basn6a16.png" png-image decode-test
"bgai4a08.png" png-image decode-test
"bgai4a16.png" png-image decode-test
"bgan6a08.png" png-image decode-test
"bgan6a16.png" png-image decode-test
"bgbn4a08.png" png-image decode-test
"bggn4a16.png" png-image decode-test
"bgwn6a08.png" png-image decode-test
"bgyn6a16.png" png-image decode-test
"ccwn2c08.png" png-image decode-test
"ccwn3p08.png" png-image decode-test
"cdfn2c08.png" png-image decode-test
"cdhn2c08.png" png-image decode-test
"cdsn2c08.png" png-image decode-test
"cdun2c08.png" png-image decode-test
"ch1n3p04.png" png-image decode-test
"ch2n3p08.png" png-image decode-test
"cm0n0g04.png" png-image decode-test
"cm7n0g04.png" png-image decode-test
"cm9n0g04.png" png-image decode-test
"cs3n2c16.png" png-image decode-test
"cs3n3p08.png" png-image decode-test
"cs5n2c08.png" png-image decode-test
"cs5n3p08.png" png-image decode-test
"cs8n2c08.png" png-image decode-test
"cs8n3p08.png" png-image decode-test
"ct0n0g04.png" png-image decode-test
"ct1n0g04.png" png-image decode-test
"cten0g04.png" png-image decode-test
"ctfn0g04.png" png-image decode-test
"ctgn0g04.png" png-image decode-test
"cthn0g04.png" png-image decode-test
"ctjn0g04.png" png-image decode-test
"ctzn0g04.png" png-image decode-test
"f00n0g08.png" png-image decode-test
"f00n2c08.png" png-image decode-test
"f01n0g08.png" png-image decode-test
"f01n2c08.png" png-image decode-test
"f02n0g08.png" png-image decode-test
"f02n2c08.png" png-image decode-test
"f03n0g08.png" png-image decode-test
"f03n2c08.png" png-image decode-test
"f04n0g08.png" png-image decode-test
"f04n2c08.png" png-image decode-test
"f99n0g04.png" png-image decode-test
"g03n0g16.png" png-image decode-test
"g03n2c08.png" png-image decode-test
"g03n3p04.png" png-image decode-test
"g04n0g16.png" png-image decode-test
"g04n2c08.png" png-image decode-test
"g04n3p04.png" png-image decode-test
"g05n0g16.png" png-image decode-test
"g05n2c08.png" png-image decode-test
"g05n3p04.png" png-image decode-test
"g07n0g16.png" png-image decode-test
"g07n2c08.png" png-image decode-test
"g07n3p04.png" png-image decode-test
"g10n0g16.png" png-image decode-test
"g10n2c08.png" png-image decode-test
"g10n3p04.png" png-image decode-test
"g25n0g16.png" png-image decode-test
"g25n2c08.png" png-image decode-test
"g25n3p04.png" png-image decode-test
"oi1n0g16.png" png-image decode-test
"oi1n2c16.png" png-image decode-test
"oi2n0g16.png" png-image decode-test
"oi2n2c16.png" png-image decode-test
"oi4n0g16.png" png-image decode-test
"oi4n2c16.png" png-image decode-test
"oi9n0g16.png" png-image decode-test
"oi9n2c16.png" png-image decode-test
"pngsuite_logo.png" png-image decode-test
"pp0n2c16.png" png-image decode-test
"pp0n6a08.png" png-image decode-test
"ps1n0g08.png" png-image decode-test
"ps1n2c16.png" png-image decode-test
"ps2n0g08.png" png-image decode-test
"ps2n2c16.png" png-image decode-test
"s01i3p01.png" png-image decode-test
"s01n3p01.png" png-image decode-test
"s02i3p01.png" png-image decode-test
"s02n3p01.png" png-image decode-test
"s03i3p01.png" png-image decode-test
"s03n3p01.png" png-image decode-test
"s04i3p01.png" png-image decode-test
"s04n3p01.png" png-image decode-test
"s05i3p02.png" png-image decode-test
"s05n3p02.png" png-image decode-test
"s06i3p02.png" png-image decode-test
"s06n3p02.png" png-image decode-test
"s07i3p02.png" png-image decode-test
"s07n3p02.png" png-image decode-test
"s08i3p02.png" png-image decode-test
"s08n3p02.png" png-image decode-test
"s09i3p02.png" png-image decode-test
"s09n3p02.png" png-image decode-test
"s32i3p04.png" png-image decode-test
"s32n3p04.png" png-image decode-test
"s33i3p04.png" png-image decode-test
"s33n3p04.png" png-image decode-test
"s34i3p04.png" png-image decode-test
"s34n3p04.png" png-image decode-test
"s35i3p04.png" png-image decode-test
"s35n3p04.png" png-image decode-test
"s36i3p04.png" png-image decode-test
"s36n3p04.png" png-image decode-test
"s37i3p04.png" png-image decode-test
"s37n3p04.png" png-image decode-test
"s38i3p04.png" png-image decode-test
"s38n3p04.png" png-image decode-test
"s39i3p04.png" png-image decode-test
"s39n3p04.png" png-image decode-test
"s40i3p04.png" png-image decode-test
"s40n3p04.png" png-image decode-test
"tbbn0g04.png" png-image decode-test
"tbbn1g04.png" png-image decode-test
"tbbn2c16.png" png-image decode-test
"tbbn3p08.png" png-image decode-test
"tbgn2c16.png" png-image decode-test
"tbgn3p08.png" png-image decode-test
"tbrn2c08.png" png-image decode-test
"tbwn0g16.png" png-image decode-test
"tbwn1g16.png" png-image decode-test
"tbwn3p08.png" png-image decode-test
"tbyn3p08.png" png-image decode-test
"tp0n0g08.png" png-image decode-test
"tp0n1g08.png" png-image decode-test
"tp0n2c08.png" png-image decode-test
"tp0n3p08.png" png-image decode-test
"tp1n3p08.png" png-image decode-test
"z00n2c08.png" png-image decode-test
"z03n2c08.png" png-image decode-test
"z06n2c08.png" png-image decode-test
"z09n2c08.png" png-image decode-test
] with-directory
"vocab:images/testing/png/suite/bads" [
"x00n0g01.png" image-load-must-fail
"xcsn0g01.png" image-load-must-fail
"xd0n2c08.png" image-load-must-fail
"xd3n2c08.png" image-load-must-fail
"xd9n2c08.png" image-load-must-fail
"xdtn0g01.png" image-load-must-fail
"xcrn0g04.png" image-load-must-fail
"xc1n0g08.png" image-load-must-fail
"xc9n2c08.png" image-load-must-fail
"xlfn0g04.png" image-load-must-fail
"xhdn0g08.png" image-load-must-fail
"xs1n0g01.png" image-load-must-fail
"xs2n0g01.png" image-load-must-fail
"xs4n0g01.png" image-load-must-fail
"xs7n0g01.png" image-load-must-fail
"x00n0g01.png" png-image image-load-must-fail
"xcsn0g01.png" png-image image-load-must-fail
"xd0n2c08.png" png-image image-load-must-fail
"xd3n2c08.png" png-image image-load-must-fail
"xd9n2c08.png" png-image image-load-must-fail
"xdtn0g01.png" png-image image-load-must-fail
"xcrn0g04.png" png-image image-load-must-fail
"xc1n0g08.png" png-image image-load-must-fail
"xc9n2c08.png" png-image image-load-must-fail
"xlfn0g04.png" png-image image-load-must-fail
"xhdn0g08.png" png-image image-load-must-fail
"xs1n0g01.png" png-image image-load-must-fail
"xs2n0g01.png" png-image image-load-must-fail
"xs4n0g01.png" png-image image-load-must-fail
"xs7n0g01.png" png-image image-load-must-fail
] with-directory

6
extra/images/ppm/ppm-tests.factor
View File

@ -1,7 +1,7 @@
! Copyright (C) 2010 Erik Charlebois.
! See http://factorcode.org/license.txt for BSD license.
USING: images.testing ;
USING: images.testing images.ppm ;
IN: images.ppm.tests
"vocab:images/testing/ppm/binary.ppm" decode-test
"vocab:images/testing/ppm/ascii.ppm" decode-test
"vocab:images/testing/ppm/binary.ppm" ppm-image decode-test
"vocab:images/testing/ppm/ascii.ppm" ppm-image decode-test

24
extra/images/testing/testing.factor
View File

@ -1,9 +1,10 @@
! Copyright (C) 2009 Keith Lazuka.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors assocs fry images images.loader images.normalization
images.loader.private images.viewer io io.backend io.directories
io.encodings.binary io.files io.pathnames io.streams.byte-array kernel locals
namespaces quotations random sequences serialize tools.test ;
USING: accessors arrays fry images images.loader
images.normalization images.viewer io io.backend io.directories
io.encodings.binary io.files io.pathnames io.streams.byte-array
kernel locals namespaces quotations random sequences serialize
tools.test ;
IN: images.testing
<PRIVATE
@ -40,18 +41,19 @@ PRIVATE>
:: encode-test ( path image-class -- )
f verbose-tests? [
path load-image dup clone normalize-image 1quotation swap
path image-class load-image*
[ clone normalize-image 1array ] keep
'[
binary [
_ image-class [ types get value-at ] keep image>stream
_ path file-extension image-class image>stream
] with-byte-writer image-class load-image* normalize-image
] unit-test
] with-variable ;
: decode-test ( path -- )
:: decode-test ( path image-class -- )
f verbose-tests? [
[ load-image 1quotation ]
[ '[ _ load-reference-image ] ] bi
path image-class load-image* 1array
[ path load-reference-image ]
unit-test
] with-variable ;
@ -63,5 +65,5 @@ PRIVATE>
: randomize-image ( image -- image )
dup bytes-per-image random-bytes >>bitmap ;
: image-load-must-fail ( path -- )
'[ _ load-image ] must-fail ;
: image-load-must-fail ( path image-class -- )
'[ _ _ load-image* ] must-fail ;

14
extra/images/tiff/tiff-tests.factor
View File

@ -1,11 +1,11 @@
! Copyright (C) 2009 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: images.testing ;
USING: images.testing images.tiff ;
IN: images.tiff.tests
"vocab:images/testing/tiff/octagon.tiff" decode-test
! "vocab:images/testing/tiff/elephants.tiff" decode-test
"vocab:images/testing/tiff/noise.tiff" decode-test
"vocab:images/testing/tiff/alpha.tiff" decode-test
"vocab:images/testing/tiff/color_spectrum.tiff" decode-test
"vocab:images/testing/tiff/rgb.tiff" decode-test
"vocab:images/testing/tiff/octagon.tiff" tiff-image decode-test
! "vocab:images/testing/tiff/elephants.tiff" tiff-image decode-test
"vocab:images/testing/tiff/noise.tiff" tiff-image decode-test
"vocab:images/testing/tiff/alpha.tiff" tiff-image decode-test
"vocab:images/testing/tiff/color_spectrum.tiff" tiff-image decode-test
"vocab:images/testing/tiff/rgb.tiff" tiff-image decode-test