In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/94708f6d9bd9347f0cbb485f61d2f74215b62fd4?hp=c2d21e7a640527422528893466b86d277a8dac30>
- Log ----------------------------------------------------------------- commit 94708f6d9bd9347f0cbb485f61d2f74215b62fd4 Author: Jarkko Hietaniemi <[email protected]> Date: Sat Nov 29 12:54:59 2014 -0500 Show elapsed wallclock time in t/TEST. ----------------------------------------------------------------------- Summary of changes: t/TEST | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/t/TEST b/t/TEST index 9772490..7c26372 100755 --- a/t/TEST +++ b/t/TEST @@ -14,6 +14,9 @@ # In which case, we need to stop t/TEST actually running tests, as all # t/harness needs are its subroutines. +# Measure the elapsed wallclock time. +my $t0 = time(); + # If we're doing deparse tests, ignore failures for these my $deparse_failures; @@ -778,6 +781,7 @@ SHRDLU_5 } } } + printf "Elapsed: %d sec\n", time() - $t0; my ($user,$sys,$cuser,$csys) = times; my $tot = sprintf("u=%.2f s=%.2f cu=%.2f cs=%.2f scripts=%d tests=%d", $user,$sys,$cuser,$csys,$tested_files,$totmax); -- Perl5 Master Repository
