hoist all the copies of cmpimg into a common module
[imager-graph.git] / t / t10pie.t
index 15f710835a824881dfdd3a259a13dae6a08e6415..d5277b7db9499ba49a3f88312a37a2bdff0e77ca 100644 (file)
@@ -3,6 +3,7 @@ use strict;
 use Imager::Graph::Pie;
 use lib 't/lib';
 use Imager::Font::Test;
+use Imager::Graph::Test qw(cmpimg);
 use Test::More;
 
 -d 'testout' 
@@ -269,21 +270,3 @@ cmpimg($img6, "testimg/t10_hlegend.png", 550_000);
   print "# ", $pie->error, "\n";
   cmp_ok($pie->error, '=~', qr/^Error creating image/, "check error message");
 }
-
-sub cmpimg {
-  my ($img, $file, $limit) = @_;
-
-  $limit ||= 10000;
-
- SKIP:
-  {
-    $Imager::formats{png}
-      or skip("No PNG support", 1);
-
-    my $cmpimg = Imager->new;
-    $cmpimg->read(file=>$file)
-      or return ok(0, "Cannot read $file: ".$cmpimg->errstr);
-    my $diff = Imager::i_img_diff($img->{IMG}, $cmpimg->{IMG});
-    cmp_ok($diff, '<', $limit, "Comparison to $file ($diff)");
-  }
-}