hoist all the copies of cmpimg into a common module
[imager-graph.git] / t / t33_long_labels.t
index 712bec5f962411b1019e435653175f230195be9c..77156c3868cf7cdd2cbdca3c89d3335f6be82a43 100644 (file)
@@ -1,9 +1,11 @@
+#!perl
 use strict;
 
 use Imager::Graph::Line;
 use lib 't/lib';
 use Imager::Font::Test;
 use Test::More;
+use Imager::Graph::Test 'cmpimg';
 
 -d 'testout' 
   or mkdir "testout", 0700 
@@ -42,18 +44,3 @@ $img->write(file=>'testout/t33_long_labels.ppm') or die "Can't save img1: ".$img
 unless (is(@warned, 0, "should be no warnings")) {
   diag($_) for @warned;
 }
-
-
-sub cmpimg {
-  my ($img, $file, $limit) = @_;
-
-  $limit ||= 10000;
-
-  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)");
-
-}
-