add an unshipped test to check versions are updated

diff --git a/lib/Imager/Graph/Horizontal.pm b/lib/Imager/Graph/Horizontal.pm
index 1c5b950426475cc1b559f1bde296457964939d4f..c3f5f49f95bda31d3caa163b37f914a70457a8b3 100644 (file)
--- a/lib/Imager/Graph/Horizontal.pm
+++ b/lib/Imager/Graph/Horizontal.pm
@@ -13,6 +13,8 @@ use Imager::Graph;
 
 use constant STARTING_MIN_VALUE => 99999;
 
+our $VERSION = "0.10";
+
 =over 4
 
 =item add_data_series(\@data, $series_name)

diff --git a/lib/Imager/Graph/Vertical.pm b/lib/Imager/Graph/Vertical.pm
index d64be704a6ba0c3959e4d207a4bc21e35cd0bfc3..5de1cfc450a597a4f5a037666646917ec3c9aa72 100644 (file)
--- a/lib/Imager/Graph/Vertical.pm
+++ b/lib/Imager/Graph/Vertical.pm
@@ -40,6 +40,8 @@ use Imager::Graph;
 @ISA = qw(Imager::Graph);
 use Imager::Fill;
 
+our $VERSION = "0.10";
+
 use constant STARTING_MIN_VALUE => 99999;
 
 =over

diff --git a/t/lib/Imager/Graph/Test.pm b/t/lib/Imager/Graph/Test.pm
index 93ad59baa2d51f715900c378f1474253fb1a0d81..3dcf141aeb422cc45996913acb4238a0a0d8a6fa 100644 (file)
--- a/t/lib/Imager/Graph/Test.pm
+++ b/t/lib/Imager/Graph/Test.pm
@@ -8,6 +8,8 @@ our @ISA = qw(Exporter);
 
 our @EXPORT_OK = qw(cmpimg);
 
+our $VERSION = "0.10";
+
 sub cmpimg ($$;$$) {
   my ($img, $filename, $error, $note) = @_;
 

diff --git a/t/x90cmp_version.t b/t/x90cmp_version.t
new file mode 100644 (file)
index 0000000..4afdaed
--- /dev/null
+++ b/t/x90cmp_version.t
@@ -0,0 +1,47 @@
+#!perl
+# inspired by perl's cmpVERSION
+use strict;
+use warnings;
+use Test::More;
+use ExtUtils::MakeMaker;
+use File::Spec::Functions 'devnull';
+
+-d ".git"
+   or plan skip_all => "Not a git tree";
+
+chomp(my $base_tag = `git describe --abbrev=0`);
+
+my @changed = grep /\.pm$/ && m(/),
+  `git diff --name-only $base_tag --diff-filter=ACMRTUXB`;
+
+chomp @changed;
+
+plan tests => 1;
+
+my @need_update;
+for my $file (@changed) {
+  my $orig_content = get_file_from_git($file, $base_tag);
+  my $orig_version = eval { MM->parse_version(\$orig_content) };
+  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;
+  }
+  elsif ($orig_version ne "undef") {
+    push @need_update, "$file - version was removed";
+  }
+  elsif ($curr_version eq "undef") {
+    push @need_update, "$file - has no version";
+  }
+}
+
+ok(@need_update == 0, "check versions updated");
+diag $_ for @need_update;
+
+sub get_file_from_git {
+    my ($file, $tag) = @_;
+    local $/;
+    my $null = devnull();
+    return scalar `git --no-pager show $tag:$file 2>$null`;
+}