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 94332ea..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,14 +37,10 @@ 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,
     );
 
-# Fix Text-Soundex
-# Fix Win32
-
 if ($::do_nothing) {
     return 1;
 }
@@ -68,7 +62,8 @@ delete $ENV{PERL5OPT};
 @ARGV = grep($_,@ARGV) if $^O eq 'VMS';
 our $show_elapsed_time = $ENV{HARNESS_TIMER} || 0;
 
-# Cheesy version of Getopt::Std.  Maybe we should replace it with that.
+# Cheesy version of Getopt::Std.  We can't replace it with that, because we
+# can't rely on require working.
 {
     my @argv = ();
     foreach my $idx (0..$#ARGV) {
@@ -114,7 +109,6 @@ $ENV{PERL_DESTRUCT_LEVEL} = 2 unless exists $ENV{PERL_DESTRUCT_LEVEL};
 
 $ENV{EMXSHELL} = 'sh';        # For OS/2
 
-# Roll your own File::Find!
 if ($show_elapsed_time) { require Time::HiRes }
 
 my %skip = (
@@ -126,6 +120,7 @@ my %skip = (
            '.svn' => 1,
           );
 
+# Roll your own File::Find!
 sub _find_tests {
     my($dir) = @_;
     opendir DIR, $dir or die "Trouble opening $dir: $!";
@@ -200,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
        }
     }
 
@@ -285,7 +280,7 @@ sub _tests_from_manifest {
     my @results;
     my $mani = '../MANIFEST';
     if (open(MANI, $mani)) {
-       while (<MANI>) { # similar code in t/harness
+       while (<MANI>) {
            if (m!^(ext/(\S+)/+(?:[^/\s]+\.t|test\.pl)|lib/\S+?(?:\.t|test\.pl))\s!) {
                my $t = $1;
                my $extension = $2;