From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 30 Aug 2009 09:22:51 +0000 (+0100)
Subject: TestInit now also sets up the CWD and @INC for tests in ext.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8fcfece7bab676394365d24dfa216bd2e885e268;p=p5sagit%2Fp5-mst-13.2.git

TestInit now also sets up the CWD and @INC for tests in ext.
---

diff --git a/t/TestInit.pm b/t/TestInit.pm
index 253de71..3d03ed8 100644
--- a/t/TestInit.pm
+++ b/t/TestInit.pm
@@ -20,9 +20,6 @@ package TestInit;
 
 $VERSION = 1.02;
 
-# This is incompatible with the import options.
-chdir 't' if -f 't/TestInit.pm';
-
 # Let tests know they're running in the perl core.  Useful for modules
 # which live dual lives on CPAN.
 # Don't interfere with the taintedness of %ENV, this could perturbate tests.
@@ -56,14 +53,32 @@ sub set_opt {
     }
 }
 
-new_inc('../lib');
+my @up_2_t = ('../../lib', '../../t');
+# This is incompatible with the import options.
+if (-f 't/TEST' && -f 'MANIFEST' && -d 'lib' && -d 'ext') {
+    # We're being run from the top level. Try to change directory, and set
+    # things up correctly. This is a 90% solution, but for hand-running tests,
+    # that's good enough
+    if ($0 =~ s!(ext[\\/][^\\/]+)[\//](.*\.t)$!$2!) {
+	# Looks like a test in ext.
+	chdir $1 or die "Can't chdir '$1': $!";
+	new_inc(@up_2_t);
+	$^X =~ s!^\./!../../perl!;
+	$^X =~ s!^\.\\!..\\..\\perl!;
+    } else {
+	chdir 't' or die "Can't chdir 't': $!";
+	new_inc('../lib');
+    }
+} else {
+    new_inc('../lib');
+}
 
 sub import {
     my $self = shift;
     my $abs;
     foreach (@_) {
 	if ($_ eq 'U2T') {
-	    @new_inc = ('../../lib', '../../t');
+	    @new_inc = @up_2_t;
 	} elsif ($_ eq 'NC') {
 	    delete $ENV{PERL_CORE}
 	} elsif ($_ eq 'A') {