test for uncommitted changes too

diff --git a/t/x90cmpversion.t b/t/x90cmpversion.t
index ddaa88a350d00dcb5dd10e648625fdcc6663d4db..df20b4d65f3eafd447d7f510669b900a0e12180c 100644 (file)
--- 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);
+    }
   }
 }