Add an import option 'T' to TestInit, for tests that run at the top level.

This sets @INC to 'lib, and unless we're already at the top level will
chdir '..' [on the assumption that we are starting in t].

diff --git a/TestInit.pm b/TestInit.pm
index 88c3ba1..c921686 100644 (file)
--- a/TestInit.pm
+++ b/TestInit.pm
@@ -69,6 +69,11 @@ sub import {
            delete $ENV{PERL_CORE}
        } elsif ($_ eq 'A') {
            $abs = 1;
+       } elsif ($_ eq 'T') {
+           $chdir = '..'
+               unless -f 't/TEST' && -f 'MANIFEST' && -d 'lib' && -d 'ext';
+           @new_inc = 'lib';
+           $setopt = 1;
        } else {
            die "Unknown option '$_'";
        }