test for uncommitted changes too
authorTony Cook <tony@develop-help.com>
Thu, 16 Aug 2012 09:50:20 +0000 (19:50 +1000)
committerTony Cook <tony@develop-help.com>
Thu, 16 Aug 2012 09:50:20 +0000 (19:50 +1000)
t/x90cmpversion.t

index ddaa88a..df20b4d 100644 (file)
@@ -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);
+    }
   }
 }