find_git_or_skip() will now follow symlinks and chdir to the real source tree.

porting{authors,cmp_version,manifest}.t now use TestInit qw(T A) to set @INC
and $^X to absolute paths, in case find_git_or_skip() changes directory.
As $^X is now absolute, there's no need to choose between '/' and '\\' based
on $^O.

1 files changed, 12 insertions, 0 deletions

diff --git a/t/test.pl b/t/test.pl
index c11d0b88f3..5a43da38b6 100644
--- a/t/test.pl
+++ b/t/test.pl
@@ -154,6 +154,18 @@ sub skip_all_without_config {
 
 sub find_git_or_skip {
     return if -d '.git';
+    if (-l 'MANIFEST' && -l 'AUTHORS') {
+	my $where = readlink 'MANIFEST';
+	die "Can't readling MANIFEST: $!" unless defined $where;
+	die "Confusing symlink target for MANIFEST, '$where'"
+	    unless $where =~ s!/MANIFEST\z!!;
+	if (-d "$where/.git") {
+	    # Looks like we are in a symlink tree
+	    chdir $where or die "Can't chdir '$where': $!";
+	    note("Found source tree at $where");
+	    return;
+	}
+    }
     my $reason = 'not being run from a git checkout';
     skip_all($reason) if $_[0] && $_[0] eq 'all';
     skip($reason, @_);