Refactor tr/// parsing to work on EBCDIC, fix other bug

[perl5.git] / t / harness

diff --git a/t/harness b/t/harness
index a8a8d9a..d069472 100644 (file)
--- a/t/harness
+++ b/t/harness
@@ -34,26 +34,6 @@ if ($ARGV[0] && $ARGV[0] eq '-torture') {
 # which live dual lives on CPAN.
 $ENV{PERL_CORE} = 1;
 
-#fudge DATA for now.
-my %datahandle = qw(
-               lib/bigint.t            1
-               lib/bigintpm.t          1
-               lib/bigfloat.t          1
-               lib/bigfloatpm.t        1
-               op/gv.t                 1
-               lib/complex.t           1
-               lib/ph.t                1
-               lib/soundex.t           1
-               op/misc.t               1
-               op/runlevel.t           1
-               op/tie.t                1
-               op/lex_assign.t         1
-               );
-
-foreach (keys %datahandle) {
-     unlink "$_.t";
-}
-
 my (@tests, $re);
 
 # [.VMS]TEST.COM calls harness with empty arguments, so clean-up @ARGV
@@ -134,7 +114,7 @@ if (@ARGV) {
     unless (@tests) {
        my @seq = <base/*.t>;
 
-       my @next = qw(comp run cmd io re opbasic op uni mro lib porting);
+       my @next = qw(comp run cmd io re opbasic op uni mro lib porting perf);
        push @next, 'japh' if $torture;
        push @next, 'win32' if $^O eq 'MSWin32';
        push @next, 'benchmark' if $ENV{PERL_BENCHMARK};
@@ -206,6 +186,14 @@ if ($^O eq 'MSWin32') {
 @tests=grep /$re/, @tests 
     if $re;
 
+# Allow eg ./perl t/harness t/op/lc.t
+for (@tests) {
+    if (-f "../$_") {
+        $_ = "../$_";
+        s{^\.\./t/}{};
+    }
+}
+
 my %options;
 
 my $type = 'perl';