From: Tony Cook <tony@develop-help.com>
Date: Sat, 20 Jul 2013 05:58:56 +0000 (+1000)
Subject: fix the version update test and update some versions
X-Git-Tag: v0.11~3
X-Git-Url: http://git.imager.perl.org/imager-graph.git/commitdiff_plain/172d0769274f10fe6549faa9a026226337f6a70f

fix the version update test and update some versions
---

diff --git a/lib/Imager/Graph/Horizontal.pm b/lib/Imager/Graph/Horizontal.pm
index f00c236..6a64fbf 100644
--- a/lib/Imager/Graph/Horizontal.pm
+++ b/lib/Imager/Graph/Horizontal.pm
@@ -21,7 +21,7 @@ use Imager::Graph;
 
 use constant STARTING_MIN_VALUE => 99999;
 
-our $VERSION = "0.10";
+our $VERSION = "0.11";
 
 =head1 METHODS
 
diff --git a/lib/Imager/Graph/Vertical.pm b/lib/Imager/Graph/Vertical.pm
index 17840dc..edda140 100644
--- a/lib/Imager/Graph/Vertical.pm
+++ b/lib/Imager/Graph/Vertical.pm
@@ -40,7 +40,7 @@ use Imager::Graph;
 @ISA = qw(Imager::Graph);
 use Imager::Fill;
 
-our $VERSION = "0.10";
+our $VERSION = "0.11";
 
 use constant STARTING_MIN_VALUE => 99999;
 
diff --git a/t/x90cmp_version.t b/t/x90cmp_version.t
index 4afdaed..1df7401 100644
--- a/t/x90cmp_version.t
+++ b/t/x90cmp_version.t
@@ -16,7 +16,7 @@ my @changed = grep /\.pm$/ && m(/),
 
 chomp @changed;
 
-plan tests => 1;
+plan tests => scalar @changed;
 
 my @need_update;
 for my $file (@changed) {
@@ -25,20 +25,19 @@ for my $file (@changed) {
   my $curr_version = eval { MM->parse_version($file) };
 
   if ($curr_version ne "undef" && $orig_version ne "undef") {
-    push @need_update, "$file - out of date"
-      if $curr_version < $orig_version;
+    cmp_ok($curr_version, '>', $orig_version, "$file - out of date");
   }
   elsif ($orig_version ne "undef") {
-    push @need_update, "$file - version was removed";
+    fail("$file - version was removed");
   }
   elsif ($curr_version eq "undef") {
-    push @need_update, "$file - has no version";
+    fail("$file - has no version");
+  }
+  else {
+    pass($file);
   }
 }
 
-ok(@need_update == 0, "check versions updated");
-diag $_ for @need_update;
-
 sub get_file_from_git {
     my ($file, $tag) = @_;
     local $/;