Use find_git_or_skip() in porting{authors,cmp_version,manifest}.t

Correct the skip count in t/porting/manifest.t. Not that this matters
currently, as the SKIP block holds the last tests in the file, and the script
uses done_testing() instead of a plan up front.

diff --git a/t/porting/authors.t b/t/porting/authors.t
index 5fb933f..8777986 100644 (file)
--- a/t/porting/authors.t
+++ b/t/porting/authors.t
@@ -7,10 +7,8 @@ BEGIN {
 use TestInit 'T'; # T is chdir to the top level
 use strict;
 
-if (! -d '.git' ) {
-    print "1..0 # SKIP: not being run from a git checkout\n";
-    exit 0;
-}
+require 't/test.pl';
+find_git_or_skip('all');
 
 my $dotslash = $^O eq "MSWin32" ? ".\\" : "./";
 system("git log --pretty=fuller | ${dotslash}perl Porting/checkAUTHORS.pl --tap -");

diff --git a/t/porting/cmp_version.t b/t/porting/cmp_version.t
index 81cbf2c..2e3f15d 100644 (file)
--- a/t/porting/cmp_version.t
+++ b/t/porting/cmp_version.t
@@ -11,10 +11,8 @@ BEGIN {
 use TestInit 'T'; # T is chdir to the top level
 use strict;
 
-if (! -d '.git' ) {
-    print "1..0 # SKIP: not being run from a git checkout\n";
-    exit 0;
-}
+require 't/test.pl';
+find_git_or_skip('all');
 
 my $dotslash = $^O eq "MSWin32" ? ".\\" : "./";
 

diff --git a/t/porting/manifest.t b/t/porting/manifest.t
index 5534aca..caad265 100644 (file)
--- a/t/porting/manifest.t
+++ b/t/porting/manifest.t
@@ -55,7 +55,7 @@ SKIP: {
 }
 
 SKIP: {
-    skip("not under git control", 3) unless -d '.git';
+    find_git_or_skip(6);
     chomp(my @repo= grep { !/\.gitignore$/ } `git ls-files`);
     skip("git ls-files didnt work",3)
         if !@repo;