Remove full stop in the 'try' feature heading

[perl5.git] / t / TEST

diff --git a/t/TEST b/t/TEST
index f684cad..72c865d 100755 (executable)
--- a/t/TEST
+++ b/t/TEST
@@ -49,7 +49,6 @@ my %abs = (
           '../cpan/File-Fetch' => 1,
           '../cpan/IPC-Cmd' => 1,
           '../cpan/IPC-SysV' => 1,
-          '../cpan/Locale-Codes' => 1,
           '../cpan/Module-Load' => 1,
           '../cpan/Module-Load-Conditional' => 1,
           '../cpan/Pod-Simple' => 1,
@@ -61,8 +60,7 @@ my %abs = (
           '../dist/Tie-File' => 1,
          );
 
-my %temp_no_core =
-    ('../cpan/B-Debug' => 1,
+my %temp_no_core = (
      '../cpan/Compress-Raw-Bzip2' => 1,
      '../cpan/Compress-Raw-Zlib' => 1,
      '../cpan/Devel-PPPort' => 1,
@@ -78,20 +76,11 @@ my %temp_no_core =
      '../dist/Unicode-Normalize' => 1,
     );
 
-# temporary workaround Apr 2017.  These need '.' in @INC.
-# Ideally this # list will eventually be empty
-
-my %temp_needs_dot  = map { $_ => 1 } qw(
-    ../cpan/Filter-Util-Call
-    ../cpan/libnet
-);
-
-
 # delete env vars that may influence the results
 # but allow override via *_TEST env var if wanted
 # (e.g. PERL5OPT_TEST=-d:NYTProf)
 my @bad_env_vars = qw(
-    PERL5LIB PERLLIB PERL5OPT
+    PERL5LIB PERLLIB PERL5OPT PERL_UNICODE
     PERL_YAML_BACKEND PERL_JSON_BACKEND
 );
 
@@ -179,7 +168,8 @@ if ($show_elapsed_time) { require Time::HiRes }
 my %timings = (); # testname => [@et] pairs if $show_elapsed_time.
 
 # Roll your own File::Find!
-sub _find_tests { our @found=(); push @ARGV, _find_files('\.t$', $_[0]) }
+our @found;
+sub _find_tests { @found=(); push @ARGV, _find_files('\.t$', $_[0]) }
 sub _find_files {
     my($patt, @dirs) = @_;
     for my $dir (@dirs) {
@@ -188,7 +178,6 @@ sub _find_files {
            next if $skip{$f};
 
            my $fullpath = "$dir/$f";
-           
            if (-d $fullpath) {
                _find_files($patt, $fullpath);
            } elsif ($f =~ /$patt/) {
@@ -255,9 +244,6 @@ sub _scan_test {
                if ($temp_no_core{$run_dir}) {
                    $testswitch = $testswitch . ',NC';
                }
-               if($temp_needs_dot{$run_dir}) {
-                   $testswitch = $testswitch . ',DOT';
-               }
            }
        } elsif ($test =~ m!^\.\./lib!) {
            $testswitch = '-I.. -MTestInit=U1'; # -T will remove . from @INC
@@ -409,6 +395,7 @@ sub _tests_from_manifest {
     my %skip;
     my %extensions = _populate_hash($extensions);
     my %known_extensions = _populate_hash($known_extensions);
+    my %printed_skip_warning;
 
     foreach (keys %known_extensions) {
        $skip{$_} = 1 unless $extensions{$_};
@@ -422,9 +409,38 @@ sub _tests_from_manifest {
                my $t = $1;
                my $extension = $2;
 
-               # XXX Generates way too many error lines currently.  Skip for
-               # v5.22
-               next if $t =~ /^cpan/ && ord("A") != 65;
+               if (    ord "A" != 65
+                    && defined $extension
+                    && $extension =~ m! \b (?:
+                                               Archive-Tar/
+                                             | Config-Perl-V/
+                                             | CPAN-Meta/
+                                             | CPAN-Meta-YAML/
+                                             | Digest-SHA/
+                                             | ExtUtils-MakeMaker/
+                                             | HTTP-Tiny/
+                                             | IO-Compress/
+                                             | JSON-PP/
+                                             | libnet/
+                                             | MIME-Base64/
+                                             | podlators/
+                                             | Pod-Simple/
+                                             | Pod-Checker/
+                                             | Digest-MD5/
+                                             | Test-Harness/
+                                             | IPC-Cmd/
+                                             | Encode/
+                                             | Socket/
+                                             | ExtUtils-Manifest/
+                                             | Module-Metadata/
+                                             | PerlIO-via-QuotedPrint/
+                                           )
+                                      !x)
+               {
+                   print STDERR "Skipping testing of $extension on EBCDIC\n"
+                                    unless $printed_skip_warning{$extension}++;
+                   next;
+               }
 
                if (!$::core || $t =~ m!^lib/[a-z]!) {
                    if (defined $extension) {
@@ -458,11 +474,11 @@ unless (@ARGV) {
     }
     unless ($::core) {
        _find_tests('porting');
-       _find_tests("lib"); 
+        _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.
+    # What we want to do is make a list of extensions which we did not build.
     my $configsh = '../config.sh';
     my ($extensions, $known_extensions);
     if (-f $configsh) {
@@ -983,6 +999,11 @@ sub _cleanup_valgrind {
        unlink _find_files('cachegrind.out.\d+$',
                     qw ( ../t ../cpan ../ext ../dist/ ));
     }
+    elsif ($$toolnm eq 'valgrind') {
+       # Remove empty, hence non-error, output files
+       unlink grep { -z } _find_files('valgrind-current',
+                    qw ( ../t ../cpan ../ext ../dist/ ));
+    }
 }
 
 # Generate regexps of known bad filenames / skips from Porting/deparse-skips.txt