fix the version update test and update some versions
authorTony Cook <tony@develop-help.com>
Sat, 20 Jul 2013 05:58:56 +0000 (15:58 +1000)
committerTony Cook <tony@develop-help.com>
Sat, 20 Jul 2013 05:58:56 +0000 (15:58 +1000)
lib/Imager/Graph/Horizontal.pm
lib/Imager/Graph/Vertical.pm
t/x90cmp_version.t

index f00c236..6a64fbf 100644 (file)
@@ -21,7 +21,7 @@ use Imager::Graph;
 
 use constant STARTING_MIN_VALUE => 99999;
 
-our $VERSION = "0.10";
+our $VERSION = "0.11";
 
 =head1 METHODS
 
index 17840dc..edda140 100644 (file)
@@ -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;
 
index 4afdaed..1df7401 100644 (file)
@@ -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 $/;