X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/9636a016720fa29929de1fb9fc4ead4cfbfc4af8..b815e894e1fc82c49b9845b9884350949cec1752:/t/harness diff --git a/t/harness b/t/harness index e1a4dd7..ca8a676 100644 --- a/t/harness +++ b/t/harness @@ -37,17 +37,17 @@ foreach (keys %datahandle) { } @tests = @ARGV; -@tests = unless @tests; +@tests = unless @tests; Test::Harness::runtests @tests; exit(0) unless -e "../testcompile"; -%infinite = qw ( - op/bop.t 1 - lib/hostname.t 1 - op/lex_assign.t 1 - lib/ph.t 1 - ); +# %infinite = qw ( +# op/bop.t 1 +# lib/hostname.t 1 +# op/lex_assign.t 1 +# lib/ph.t 1 +# ); my $dhwrapper = <<'EOT'; open DATA,"<".__FILE__; @@ -72,10 +72,10 @@ EOT print "The tests ", join(' ', keys(%infinite)), " generate infinite loops! Skipping!\n"; -$ENV{'HARNESS_COMPILE_TEST'} = 1; +$ENV{'HARNESS_COMPILE_TEST'} = 1; $ENV{'PERLCC_TIMEOUT'} = 120 unless $ENV{'PERLCC_TIMEOUT'}; -Test::Harness::runtests @tests; +Test::Harness::runtests @tests; foreach (keys %datahandle) { unlink "$_.t"; }