Remove the $ENV{PERL_CORE} boilerplate from DynaLoader's tests.

[p5sagit/p5-mst-13.2.git] / t / TEST

diff --git a/t/TEST b/t/TEST
index 912e4ef..d5007ed 100755 (executable)
--- a/t/TEST
+++ b/t/TEST
@@ -20,17 +20,15 @@ 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 =
     ('../ext/Attribute-Handlers' => 1,
-     '../ext/B' => 'fixme',
+     '../ext/B-Debug' => 1,
      '../ext/Compress-Raw-Bzip2' => 1,
      '../ext/Compress-Raw-Zlib' => 1,
-     '../ext/Data-Dumper' => 'fixme',
      '../ext/Devel-PPPort' => 1,
-     '../ext/DynaLoader' => 'fixme',
      '../ext/Encode' => 1,
      '../ext/Hash-Util' => 'fixme',
      '../ext/Hash-Util-FieldHash' => 'fixme',
@@ -39,7 +37,6 @@ my %temp_no_core =
      '../ext/IPC-SysV' => 1,
      '../ext/MIME-Base64' => 1,
      '../ext/Safe' => 'fixme',
-     '../ext/Storable' => 'fixme',
      '../ext/Time-HiRes' => 1,
      '../ext/Unicode-Normalize' => 1,
     );
@@ -198,13 +195,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
        }
     }