]> git.imager.perl.org - imager.git/blobdiff - t/t1000files.t
make sure flipping paletted images is covered
[imager.git] / t / t1000files.t
index 041d5d2599245b4f7ed30a133bfa2afb03792ecb..66d3a98da2439ae78e7f16e3220a7f3c8814fcdf 100644 (file)
@@ -4,7 +4,7 @@
 # the file format
 
 use strict;
-use Test::More tests => 32;
+use Test::More tests => 33;
 use Imager;
 
 Imager::init_log("testout/t1000files.log", 1);
@@ -79,6 +79,12 @@ probe_ok(<<TGA, "tga", "TGA");
 00 00 FF 00 00 00 95 00 00 00 FF 00 00 00 95 00
 TGA
 
+probe_ok(<<TGA, "tga", "TGA 32-bit");
+00 00 0A 00 00 00 00 00 00 00 00 00 0A 00 0A 00
+20 08 84 00 00 00 00 84 FF FF FF FF 84 00 00 00
+00 84 FF FF FF FF 84 00 00 00 00 84 FF FF FF FF
+TGA
+
 probe_ok(<<ICO, "ico", "Windows Icon");
 00 00 01 00 02 00 20 20 10 00 00 00 00 00 E8 02
 00 00 26 00 00 00 20 20 00 00 00 00 00 00 A8 08