[rt.cpan.org #65385] Patch for Imager::Color->hsv

[imager.git] / t / t105nogif.t

diff --git a/t/t105nogif.t b/t/t105nogif.t
index 2021faa7081db36ca00ca8713932ab18c28f940b..bf053e8b0f092a4bcf454e3e095b59e3d0a2bf94 100644 (file)
--- a/t/t105nogif.t
+++ b/t/t105nogif.t
@@ -4,16 +4,32 @@ $|=1;
 use Test::More;
 use Imager qw(:all);
 
-i_has_format("gif")
+$Imager::formats{"gif"}
   and plan skip_all => "gif support available and this tests the lack of it";
 
-plan tests => 6;
+plan tests => 12;
 
 my $im = Imager->new;
-ok(!$im->read(file=>"testimg/scale.gif"), "should fail to read gif");
-cmp_ok($im->errstr, '=~', "format 'gif' not supported", "check no gif message");
+ok(!$im->read(file=>"GIF/testimg/scale.gif"), "should fail to read gif");
+cmp_ok($im->errstr, '=~', "format 'gif' not supported",
+       "check no gif message");
+ok(!Imager->read_multi(file=>"GIF/testimg/scale.gif"), 
+   "should fail to read multi gif");
+cmp_ok($im->errstr, '=~', "format 'gif' not supported",
+       "check no gif message");
+
 $im = Imager->new(xsize=>2, ysize=>2);
+
 ok(!$im->write(file=>"testout/nogif.gif"), "should fail to write gif");
-cmp_ok($im->errstr, '=~', "format 'gif' not supported", "check no gif message");
+ok(!-e "testout/nogif.gif", "shouldn't create the file");
+cmp_ok($im->errstr, '=~', "format 'gif' not supported",
+       "check no gif message");
+
+ok(!Imager->write_multi({file => "testout/nogif.gif"}, $im, $im),
+   "should fail to write multi gif");
+ok(!-e "testout/nogif.gif", "shouldn't create the file");
+cmp_ok($im->errstr, '=~', "format 'gif' not supported",
+       "check no gif message");
+
 ok(!grep($_ eq 'gif', Imager->read_types), "check gif not in read types");
 ok(!grep($_ eq 'gif', Imager->write_types), "check gif not in write types");