add an unshipped test for checking sub-module versions are updated

diff --git a/GIF/Changes b/GIF/Changes
index 0668d68269494cc497c04ed8875a9d6919fdf873..a854d3e12b2e8dfd725073c26ac9f91a4ba83b2d 100644 (file)
--- a/GIF/Changes
+++ b/GIF/Changes
@@ -1,8 +1,12 @@
+Imager-File-GIF 0.84
+====================
 
  - giflib 4.2 eliminates the GIF_LIB_VERSION macro, handle that
    correctly for both probing and runtime.
    https://rt.cpan.org/Ticket/Display.html?id=77672
 
+ - allow building with C89 compilers
+
 Imager-File-GIF 0.83
 ====================
 

diff --git a/GIF/GIF.pm b/GIF/GIF.pm
index 1d2746918b42532411957305e437829cb2d41888..db78872543644c0b74a28447cd3287b4d766ce0c 100644 (file)
--- a/GIF/GIF.pm
+++ b/GIF/GIF.pm
@@ -4,7 +4,7 @@ use Imager;
 use vars qw($VERSION @ISA);
 
 BEGIN {
-  $VERSION = "0.83";
+  $VERSION = "0.84";
 
   require XSLoader;
   XSLoader::load('Imager::File::GIF', $VERSION);

diff --git a/PNG/Changes b/PNG/Changes
index 940da03635e14abafd3ddc8732a95808f56bb7ec..2711a5133151e7f15ced3ecf4ba4a3ebac8f7c7d 100644 (file)
--- a/PNG/Changes
+++ b/PNG/Changes
@@ -1,3 +1,8 @@
+Imager-File-PNG 0.85
+====================
+
+ - fix some compiler warnings, no functional changes
+
 Imager-File-PNG 0.84
 ====================
 

diff --git a/PNG/PNG.pm b/PNG/PNG.pm
index da6bda5c05f003a6742e16ca6e1fb8d68690c90d..84db590039264cadf972a548972986ad1bb94006 100644 (file)
--- a/PNG/PNG.pm
+++ b/PNG/PNG.pm
@@ -4,7 +4,7 @@ use Imager;
 use vars qw($VERSION @ISA);
 
 BEGIN {
-  $VERSION = "0.84";
+  $VERSION = "0.85";
 
   require XSLoader;
   XSLoader::load('Imager::File::PNG', $VERSION);

diff --git a/t/x90cmpversion.t b/t/x90cmpversion.t
new file mode 100644 (file)
index 0000000..ddaa88a
--- /dev/null
+++ b/t/x90cmpversion.t
@@ -0,0 +1,35 @@
+#!perl -w
+use strict;
+use Test::More;
+use ExtUtils::MakeMaker;
+use File::Spec::Functions qw(devnull);
+
+my $last_tag = `git describe --abbrev=0`;
+chomp $last_tag;
+
+$last_tag
+  or plan skip_all => "Only usable in a git checkout";
+
+my @subdirs = qw(PNG TIFF GIF JPEG W32 T1 FT2);
+
+plan tests => scalar(@subdirs);
+
+for my $dir (@subdirs) {
+  my @changes = `git log --abbrev --oneline $last_tag..HEAD $dir`;
+ SKIP:
+  {
+    @changes or skip "No changes for $dir", 1;
+    my $vfile = "$dir/$dir.pm";
+    my $current = eval { MM->parse_version($vfile) };
+    my $last_rel_content = get_file_from_git($vfile, $last_tag);
+    my $last = eval { MM->parse_version(\$last_rel_content) };
+    isnt($current, $last, "$dir updated, $vfile version bump");
+  }
+}
+
+sub get_file_from_git {
+    my ($file, $tag) = @_;
+    my $null = devnull();
+    local $/;
+    return scalar `git --no-pager show $tag:$file 2>$null`;
+}