diff options
| -rw-r--r-- | MANIFEST | 2 | ||||
| -rw-r--r-- | TestInit.pm (renamed from t/TestInit.pm) | 0 | ||||
| -rwxr-xr-x | t/TEST | 6 |
3 files changed, 4 insertions, 4 deletions
@@ -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 diff --git a/t/TestInit.pm b/TestInit.pm index 3d03ed82e1..3d03ed82e1 100644 --- a/t/TestInit.pm +++ b/TestInit.pm @@ -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 } } |