Make cproto.t more stringent

[perl5.git] / t / TEST

diff --git a/t/TEST b/t/TEST
index 3ce6528..82e8378 100755 (executable)
--- a/t/TEST
+++ b/t/TEST
@@ -81,7 +81,12 @@ my %temp_no_core =
 # delete env vars that may influence the results
 # but allow override via *_TEST env var if wanted
 # (e.g. PERL5OPT_TEST=-d:NYTProf)
-for my $envname (qw(PERL5LIB PERLLIB PERL5OPT)) {
+my @bad_env_vars = qw(
+    PERL5LIB PERLLIB PERL5OPT
+    PERL_YAML_BACKEND PERL_JSON_BACKEND
+);
+
+for my $envname (@bad_env_vars) {
     my $override = $ENV{"${envname}_TEST"};
     if (defined $override) {
        warn "$0: $envname=$override\n";
@@ -428,7 +433,10 @@ unless (@ARGV) {
     foreach my $dir (qw(base comp run cmd io re op uni mro)) {
        _find_tests($dir);
     }
-    _find_tests("lib") unless $::core;
+    unless ($::core) {
+       _find_tests('porting');
+       _find_tests("lib"); 
+    }
     # Config.pm may be broken for make minitest. And this is only a refinement
     # for skipping tests on non-default builds, so it is allowed to fail.
     # What we want to to is make a list of extensions which we did not build.
@@ -458,9 +466,9 @@ unless (@ARGV) {
     push @ARGV, _tests_from_manifest($extensions, $known_extensions);
     unless ($::core) {
        _find_tests('x2p');
-       _find_tests('porting');
        _find_tests('japh') if $::torture;
        _find_tests('t/benchmark') if $::benchmark or $ENV{PERL_BENCHMARK};
+       _find_tests('bigmem') if $ENV{PERL_TEST_MEMORY};
     }
 }