This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
porting/manifest.t fail gracefully under !git
authorDavid Mitchell <davem@iabyn.com>
Mon, 20 Sep 2010 08:15:56 +0000 (09:15 +0100)
committerDavid Mitchell <davem@iabyn.com>
Mon, 20 Sep 2010 08:15:56 +0000 (09:15 +0100)
This test was producing spurious output to stderr when not under
git control (e.g. a release tarball):

fatal: Not a git repository (or any parent up to mount parent )
Stopping at filesystem boundary (GIT_DISCOVERY_ACROSS_FILESYSTEM not set).

t/porting/manifest.t

index fef5b6f..48dd3ac 100644 (file)
@@ -59,6 +59,7 @@ SKIP: {
 
 SKIP: {
     chdir "..";
+    skip("not under git control", 3) unless -d '.git';
     chomp(my @repo= grep { !/\.gitignore$/ } `git ls-files`);
     skip("git ls-files didnt work",3)
         if !@repo;