add an unshipped test for checking sub-module versions are updated
authorTony Cook <tony@develop-help.com>
Tue, 14 Aug 2012 09:31:19 +0000 (19:31 +1000)
committerTony Cook <tony@develop-help.com>
Tue, 14 Aug 2012 09:31:19 +0000 (19:31 +1000)
GIF/Changes
GIF/GIF.pm
PNG/Changes
PNG/PNG.pm
t/x90cmpversion.t [new file with mode: 0644]

index 0668d68..a854d3e 100644 (file)
@@ -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
 
 
  - 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
 ====================
 
 Imager-File-GIF 0.83
 ====================
 
index 1d27469..db78872 100644 (file)
@@ -4,7 +4,7 @@ use Imager;
 use vars qw($VERSION @ISA);
 
 BEGIN {
 use vars qw($VERSION @ISA);
 
 BEGIN {
-  $VERSION = "0.83";
+  $VERSION = "0.84";
 
   require XSLoader;
   XSLoader::load('Imager::File::GIF', $VERSION);
 
   require XSLoader;
   XSLoader::load('Imager::File::GIF', $VERSION);
index 940da03..2711a51 100644 (file)
@@ -1,3 +1,8 @@
+Imager-File-PNG 0.85
+====================
+
+ - fix some compiler warnings, no functional changes
+
 Imager-File-PNG 0.84
 ====================
 
 Imager-File-PNG 0.84
 ====================
 
index da6bda5..84db590 100644 (file)
@@ -4,7 +4,7 @@ use Imager;
 use vars qw($VERSION @ISA);
 
 BEGIN {
 use vars qw($VERSION @ISA);
 
 BEGIN {
-  $VERSION = "0.84";
+  $VERSION = "0.85";
 
   require XSLoader;
   XSLoader::load('Imager::File::PNG', $VERSION);
 
   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
@@ -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`;
+}