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")) {
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;