fix the test count for t14bar.t and relax the image comparisons a bit
authorTony Cook <tony@develop-help.com>
Tue, 3 Nov 2009 11:21:54 +0000 (11:21 +0000)
committerTony Cook <tony@develop-help.com>
Tue, 3 Nov 2009 11:21:54 +0000 (11:21 +0000)
t/t14bar.t
t/t31tic_color.t
t/t33_long_labels.t

index ed30851..ef8cbc0 100644 (file)
@@ -13,7 +13,7 @@ use Test::More;
 
 use Imager qw(:handy);
 
-plan tests => 3;
+plan tests => 4;
 
 my @warned;
 local $SIG{__WARN__} =
index a0d0c3f..8ae6022 100644 (file)
@@ -48,10 +48,10 @@ $img1->write(file=>'testout/t31tic_color.ppm') or die "Can't save img1: ".$img1-
 
 eval { require Chart::Math::Axis; };
 if ($@) {
-    cmpimg($img1, 'testimg/t31tic_color.ppm', 1);
+    cmpimg($img1, 'testimg/t31tic_color.ppm', 100);
 }
 else {
-    cmpimg($img1, 'testimg/t31tic_color_CMA.ppm', 1);
+    cmpimg($img1, 'testimg/t31tic_color_CMA.ppm', 100);
 }
 
 unless (is(@warned, 0, "should be no warnings")) {
index 09dc7cf..0c44717 100644 (file)
@@ -36,8 +36,8 @@ $graph->set_labels(['AWWWWWWWWWWWWWWA', 'AWWWWWWWWWWWWWWWWWWWWWWWWWWWWWA']);
 
 my $img = $graph->draw() || warn $graph->error;
 
+cmpimg($img, 'testimg/t33_long_labels.ppm', 200);
 $img->write(file=>'testout/t33_long_labels.ppm') or die "Can't save img1: ".$img->errstr."\n";
-cmpimg($img, 'testimg/t33_long_labels.ppm', 1);
 
 unless (is(@warned, 0, "should be no warnings")) {
   diag($_) for @warned;