]> git.imager.perl.org - imager.git/commitdiff
remove debugging image save
authorTony Cook <tony@develop=help.com>
Sat, 14 Apr 2007 00:35:05 +0000 (00:35 +0000)
committerTony Cook <tony@develop=help.com>
Sat, 14 Apr 2007 00:35:05 +0000 (00:35 +0000)
t/t61filters.t

index c378d62a29886fcab4edd4d583a1dddff7a19091..90382222d6500b6dd54d52af01a2b99b75a9c920 100644 (file)
@@ -256,7 +256,6 @@ is($name, "test gradient", "check the name matches");
   is_image($diff1, $cmp1, "difference() - check image with mindist 0");
 
   my $diff2 = $im1->difference(other => $im2, mindist => 1);
-  $diff2->write(file=>'foo.png');
   my $cmp2 = Imager->new(xsize => 3, ysize => 2, channels => 4);
   $cmp2->setpixel(x => 2, 'y' => 0, color => '#FF02FF');
   is_image($diff2, $cmp2, "difference() - check image with mindist 1");
@@ -279,7 +278,6 @@ is($name, "test gradient", "check the name matches");
   is_image($diff1, $cmp1, "difference() - check image with mindist 0 - large samples");
 
   my $diff2 = $im1->difference(other => $im2, mindist => 1.1);
-  $diff2->write(file=>'foo.png');
   my $cmp2 = Imager->new(xsize => 3, ysize => 2, channels => 4);
   $cmp2->setpixel(x => 2, 'y' => 0, color => '#FF02FF');
   is_image($diff2, $cmp2, "difference() - check image with mindist 1.1 - large samples");