match the format of other test file names

diff --git a/t/34horizontal_many_points.t b/t/34horizontal_many_points.t
deleted file mode 100644 (file)
index 26311e4..0000000
--- a/t/34horizontal_many_points.t
+++ /dev/null
@@ -1,60 +0,0 @@
-#!perl -w
-use strict;
-use Imager::Graph::Bar;
-use lib 't/lib';
-use Imager::Font::Test;
-use Test::More;
-
--d 'testout' 
-  or mkdir "testout", 0700 
-  or die "Could not create output directory: $!";
-
-++$|;
-
-my @warned;
-local $SIG{__WARN__} =
-  sub {
-    print STDERR $_[0];
-    push @warned, $_[0]
-  };
-
-
-use Imager qw(:handy);
-
-plan tests => 4;
-
-#my $fontfile = 'ImUgly.ttf';
-#my $font = Imager::Font->new(file=>$fontfile, type => 'ft2', aa=>1)
-#  or plan skip_all => "Cannot create font object: ",Imager->errstr,"\n";
-my $font = Imager::Font::Test->new();
-
-my @data = (1 .. 1000);
-
-my $bar = Imager::Graph::Bar->new();
-ok($bar, "creating bar chart object");
-
-$bar->add_data_series(\@data);
-
-my $img1 = $bar->draw();
-ok($img1, "drawing bar chart");
-
-$img1->write(file=>'testout/t34_points.ppm') or die "Can't save img1: ".$img1->errstr."\n";
-cmpimg($img1, 'testimg/t34_points.ppm', 1);
-
-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)");
-}
-

diff --git a/t/t34horizontal_many_points.t b/t/t34horizontal_many_points.t
new file mode 100644 (file)
index 0000000..26311e4
--- /dev/null
+++ b/t/t34horizontal_many_points.t
@@ -0,0 +1,60 @@
+#!perl -w
+use strict;
+use Imager::Graph::Bar;
+use lib 't/lib';
+use Imager::Font::Test;
+use Test::More;
+
+-d 'testout' 
+  or mkdir "testout", 0700 
+  or die "Could not create output directory: $!";
+
+++$|;
+
+my @warned;
+local $SIG{__WARN__} =
+  sub {
+    print STDERR $_[0];
+    push @warned, $_[0]
+  };
+
+
+use Imager qw(:handy);
+
+plan tests => 4;
+
+#my $fontfile = 'ImUgly.ttf';
+#my $font = Imager::Font->new(file=>$fontfile, type => 'ft2', aa=>1)
+#  or plan skip_all => "Cannot create font object: ",Imager->errstr,"\n";
+my $font = Imager::Font::Test->new();
+
+my @data = (1 .. 1000);
+
+my $bar = Imager::Graph::Bar->new();
+ok($bar, "creating bar chart object");
+
+$bar->add_data_series(\@data);
+
+my $img1 = $bar->draw();
+ok($img1, "drawing bar chart");
+
+$img1->write(file=>'testout/t34_points.ppm') or die "Can't save img1: ".$img1->errstr."\n";
+cmpimg($img1, 'testimg/t34_points.ppm', 1);
+
+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)");
+}
+