X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/14d519680d3b9b07f2015a7b0a15c88c356510cb..d632d9afe2fe0ca4acebe9e4db95ef6ec14a299d:/t/TEST

diff --git a/t/TEST b/t/TEST
index 45a71c9..0c24c17 100755
--- a/t/TEST
+++ b/t/TEST
@@ -35,17 +35,13 @@ my %abs = (
 	   '../cpan/Class-ISA' => 1,
 	   '../cpan/Devel-PPPort' => 1,
 	   '../cpan/Encode' => 1,
-	   '../cpan/ExtUtils-Command' => 1,
 	   '../cpan/ExtUtils-Constant' => 1,
 	   '../cpan/ExtUtils-MakeMaker' => 1,
-	   '../cpan/ExtUtils-Manifest' => 1,
 	   '../cpan/File-Fetch' => 1,
 	   '../cpan/IPC-Cmd' => 1,
 	   '../cpan/IPC-SysV' => 1,
 	   '../cpan/Locale-Codes' => 1,
 	   '../cpan/Log-Message' => 1,
-	   '../cpan/Math-BigRat' => 1,
-	   '../cpan/Math-Complex' => 1,
 	   '../cpan/Module-Build' => 1,
 	   '../cpan/Module-Load' => 1,
 	   '../cpan/Module-Load-Conditional' => 1,
@@ -58,10 +54,10 @@ my %abs = (
 	   '../cpan/Tie-File' => 1,
 	   '../cpan/podlators' => 1,
 	   '../dist/Cwd' => 1,
+	   '../dist/ExtUtils-Command' => 1,
 	   '../dist/ExtUtils-Install' => 1,
+	   '../dist/ExtUtils-Manifest' => 1,
 	   '../dist/ExtUtils-ParseXS' => 1,
-	   '../dist/Math-BigInt' => 1,
-	   '../dist/bignum' => 1,
 	  );
 
 my %temp_no_core =
@@ -71,19 +67,15 @@ my %temp_no_core =
      '../cpan/Devel-PPPort' => 1,
      '../cpan/Getopt-Long' => 1,
      '../cpan/IO-Compress' => 1,
-     '../cpan/Math-BigRat' => 1,
      '../cpan/MIME-Base64' => 1,
-     '../cpan/NEXT' => 1,
      '../cpan/parent' => 1,
      '../cpan/Parse-CPAN-Meta' => 1,
      '../cpan/Pod-Simple' => 1,
      '../cpan/podlators' => 1,
      '../cpan/Test-Simple' => 1,
      '../cpan/Tie-RefHash' => 1,
-     '../cpan/Time-HiRes' => 1,
      '../cpan/Unicode-Collate' => 1,
      '../cpan/Unicode-Normalize' => 1,
-     '../dist/Math-BigInt' => 1,
     );
 
 # delete env vars that may influence the results
@@ -130,7 +122,6 @@ our $show_elapsed_time = $ENV{HARNESS_TIMER} || 0;
 	$::with_utf8 = 1 if $1 eq 'utf8';
 	$::with_utf16 = 1 if $1 eq 'utf16';
 	$::taintwarn = 1 if $1 eq 'taintwarn';
-	$ENV{PERL_CORE_MINITEST} = 1 if $1 eq 'minitest';
 	if ($1 =~ /^deparse(,.+)?$/) {
 	    $::deparse = 1;
 	    $::deparse_opts = $1;
@@ -252,6 +243,8 @@ sub _scan_test {
 		    $testswitch = $testswitch . ',NC';
 		}
 	    }
+	} elsif ($test =~ m!^\.\./lib!) {
+	    $testswitch = '-I.. -MTestInit=U1'; # -T will remove . from @INC
 	} else {
 	    $testswitch = '-I.. -MTestInit';  # -T will remove . from @INC
 	}
@@ -400,7 +393,7 @@ sub _tests_from_manifest {
 		my $extension = $2;
 		if (!$::core || $t =~ m!^lib/[a-z]!) {
 		    if (defined $extension) {
-			$extension =~ s!/t$!!;
+			$extension =~ s!/t(:?/\S+)*$!!;
 			# XXX Do I want to warn that I'm skipping these?
 			next if $skip{$extension};
 			my $flat_extension = $extension;
@@ -620,7 +613,7 @@ EOT
 
 			    # SKIP is essentially the same as TODO for t/TEST
 			    # this still conforms to TAP:
-			    # http://search.cpan.org/dist/TAP/TAP.pm
+			    # http://testanything.org/wiki/index.php/TAP_specification
 			    $extra and $istodo = $extra =~ /#\s*(?:TODO|SKIP)\b/;
 			    $istodo = 1 if $todo{$num};