]> git.imager.perl.org - imager.git/commitdiff
adjust the ICO over-size write failure tests for the new limits
authorTony Cook <tony@develop-help.com>
Sat, 12 Nov 2011 11:39:53 +0000 (22:39 +1100)
committerTony Cook <tony@develop-help.com>
Sat, 12 Nov 2011 11:39:53 +0000 (22:39 +1100)
ICO/t/t60writefail.t

index 1841b533bed1f3da94e436bc206924cf8ea16765..5bfd55176a0759b58e4949acde5a07a637e8f1d8 100644 (file)
@@ -10,7 +10,7 @@ use Imager ':handy';
 
 # image too big for format tests, for each entry point
 {
-  my $im = Imager->new(xsize => 256, ysize => 255);
+  my $im = Imager->new(xsize => 257, ysize => 256);
   my $data;
   ok(!$im->write(data => \$data, type=>'ico'),
      "image too large");
@@ -18,7 +18,7 @@ use Imager ':handy';
 }
 
 {
-  my $im = Imager->new(xsize => 256, ysize => 255);
+  my $im = Imager->new(xsize => 257, ysize => 256);
   my $data;
   ok(!Imager->write_multi({ data => \$data, type=>'ico' }, $im, $im),
      "image too large");
@@ -27,7 +27,7 @@ use Imager ':handy';
 }
 
 {
-  my $im = Imager->new(xsize => 256, ysize => 255);
+  my $im = Imager->new(xsize => 257, ysize => 256);
   my $data;
   ok(!$im->write(data => \$data, type=>'cur'),
      "image too large");
@@ -35,7 +35,7 @@ use Imager ':handy';
 }
 
 {
-  my $im = Imager->new(xsize => 256, ysize => 255);
+  my $im = Imager->new(xsize => 257, ysize => 256);
   my $data;
   ok(!Imager->write_multi({ data => \$data, type=>'cur' }, $im),
      "image too large");