diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-09-06 20:16:58 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-09-06 20:16:58 +0000 |
| commit | 9636a016720fa29929de1fb9fc4ead4cfbfc4af8 (patch) | |
| tree | 25fe0de6975febff6b54907d76205845f0eaf423 /lib | |
| parent | 5c0bc88794e8f23611847511c08d1721d70cf0bb (diff) | |
| download | perl-9636a016720fa29929de1fb9fc4ead4cfbfc4af8.tar.gz | |
support bytecode and C backends in perlcc (patch suggested
by Tom Hughes <tom@compton.au>); s/-opt/-noopt/ and make the
C backend the default; describe new switches in pod; introduce
PERLCC_OPTS and s/COMPILE_TIMEOUT/PERLCC_TIMEOUT/;
s/COMPILE_TEST/HARNESS_COMPILE_TEST/; document these %ENV
entries
p4raw-id: //depot/perl@4092
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Test/Harness.pm | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/lib/Test/Harness.pm b/lib/Test/Harness.pm index db3109a099..a469cfafa8 100644 --- a/lib/Test/Harness.pm +++ b/lib/Test/Harness.pm @@ -87,9 +87,10 @@ sub runtests { $s .= join " ", q[ "-T"], map {qq["-I$_"]} @INC if $first =~ /^#!.*\bperl.*-\w*T/; $fh->close or print "can't close $test. $!\n"; - my $cmd = ($ENV{'COMPILE_TEST'})? -"./perl -I../lib ../utils/perlcc $test -run 2>> ./compilelog |" - : "$^X $s $test|"; + my $cmd = ($ENV{'HARNESS_COMPILE_TEST'}) + ? "./perl -I../lib ../utils/perlcc $test " + . "-run 2>> ./compilelog |" + : "$^X $s $test|"; $cmd = "MCR $cmd" if $^O eq 'VMS'; $fh->open($cmd) or print "can't run $test. $!\n"; $ok = $next = $max = 0; @@ -484,6 +485,9 @@ harness to output more frequent progress messages using carriage returns. Some consoles may not handle carriage returns properly (which results in a somewhat messy output). +Setting C<HARNESS_COMPILE_TEST> to a true value will make harness attempt +to compile the test using C<perlcc> before running it. + If C<HARNESS_FILELEAK_IN_DIR> is set to the name of a directory, harness will check after each test whether new files appeared in that directory, and report them as |