This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Move TestInit.pm to the top level of the distribution, to make it easier to use.
authorNicholas Clark <nick@ccl4.org>
Sun, 30 Aug 2009 10:16:40 +0000 (11:16 +0100)
committerNicholas Clark <nick@ccl4.org>
Sun, 30 Aug 2009 10:16:40 +0000 (11:16 +0100)
MANIFEST
TestInit.pm [moved from t/TestInit.pm with 100% similarity]
t/TEST

index 0c20ae4..e492462 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -3986,6 +3986,7 @@ t/comp/term.t                     See if more terms work
 t/comp/uproto.t                        See if the _ prototype works
 t/comp/use.t                   See if pragmata work
 t/comp/utf.t                   See if UTFs work
+TestInit.pm                    Preamble library for tests
 t/harness                      Finer diagnostics from test suite
 thread.h                       Threading header
 time64.c                       64 bit clean time.h (code)
@@ -4406,7 +4407,6 @@ t/run/switchx2.aux                Data for switchx.t
 t/run/switchx.aux              Data for switchx.t
 t/run/switchx.t                        Test the -x switch
 t/TEST                         The regression tester
-t/TestInit.pm                  Preamble library for core tests
 t/test.pl                      Simple testing library
 t/thread_it.pl                 Run regression tests in a new thread
 t/uni/cache.t                  See if Unicode swash caching works
similarity index 100%
rename from t/TestInit.pm
rename to TestInit.pm
diff --git a/t/TEST b/t/TEST
index 912e4ef..0231332 100755 (executable)
--- a/t/TEST
+++ b/t/TEST
@@ -20,7 +20,7 @@ my %dir_to_switch =
     (base => '',
      comp => '',
      run => '',
-     '../ext/File-Glob/t' => '-I. -MTestInit', # FIXME - tests assume t/
+     '../ext/File-Glob/t' => '-I.. -MTestInit', # FIXME - tests assume t/
      );
 
 my %temp_no_core =
@@ -198,13 +198,13 @@ sub _run_test {
            $return_dir = '../../t';
            $lib = '../../lib';
            $perl = '../../t/perl';
-           $testswitch = "-I$return_dir -MTestInit=U2T,A";
+           $testswitch = "-I../.. -MTestInit=U2T,A";
            if ($temp_no_core{$ext_dir}) {
                $testswitch = $testswitch . ',NC';
            }
            chdir $ext_dir or die "Can't chdir to '$ext_dir': $!";
        } else {
-           $testswitch = '-I. -MTestInit';  # -T will remove . from @INC
+           $testswitch = '-I.. -MTestInit';  # -T will remove . from @INC
        }
     }