From: Tony Cook <tony@develop-help.com>
Date: Thu, 16 Aug 2012 09:50:20 +0000 (+1000)
Subject: test for uncommitted changes too
X-Git-Tag: v0.93_02~40
X-Git-Url: http://git.imager.perl.org/imager.git/commitdiff_plain/7d046a0119b52e2686a7f95a92f025ce1e6a0cd6

test for uncommitted changes too
---

diff --git a/t/x90cmpversion.t b/t/x90cmpversion.t
index ddaa88a3..df20b4d6 100644
--- a/t/x90cmpversion.t
+++ b/t/x90cmpversion.t
@@ -16,14 +16,18 @@ plan tests => scalar(@subdirs);
 
 for my $dir (@subdirs) {
   my @changes = `git log --abbrev --oneline $last_tag..HEAD $dir`;
+  my @more_changes = `git status --porcelain $dir`;
  SKIP:
   {
-    @changes or skip "No changes for $dir", 1;
+    @changes || @more_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");
+    unless (isnt($current, $last, "$dir updated, $vfile version bump")) {
+      diag(@changes, @more_changes);
+    }
   }
 }