summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/TAP/Formatter/File/Session.pm
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2016-04-05 22:27:26 +0000
committerKarl Berry <karl@freefriends.org>2016-04-05 22:27:26 +0000
commitb56b320b5e2515160073fa1b469514002688fe11 (patch)
tree965a7100c5e45fca8ec803d22b8b6ce14fca4633 /Master/tlpkg/tlperl/lib/TAP/Formatter/File/Session.pm
parentd26c206452d2e285c3bbf949f34011e4a55fd8f9 (diff)
tlperl 5.22.1 from siep
git-svn-id: svn://tug.org/texlive/trunk@40252 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/TAP/Formatter/File/Session.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/TAP/Formatter/File/Session.pm18
1 files changed, 3 insertions, 15 deletions
diff --git a/Master/tlpkg/tlperl/lib/TAP/Formatter/File/Session.pm b/Master/tlpkg/tlperl/lib/TAP/Formatter/File/Session.pm
index 4719f22b1b6..2a92d6082ca 100644
--- a/Master/tlpkg/tlperl/lib/TAP/Formatter/File/Session.pm
+++ b/Master/tlpkg/tlperl/lib/TAP/Formatter/File/Session.pm
@@ -10,11 +10,11 @@ TAP::Formatter::File::Session - Harness output delegate for file output
=head1 VERSION
-Version 3.30
+Version 3.35
=cut
-our $VERSION = '3.30';
+our $VERSION = '3.35';
=head1 DESCRIPTION
@@ -85,19 +85,7 @@ sub close_test {
$self->_output_test_failure($parser);
}
else {
- my $time_report = '';
- if ( $formatter->timer ) {
- my $start_time = $parser->start_time;
- my $end_time = $parser->end_time;
- if ( defined $start_time and defined $end_time ) {
- my $elapsed = $end_time - $start_time;
- $time_report
- = $self->time_is_hires
- ? sprintf( ' %8d ms', $elapsed * 1000 )
- : sprintf( ' %8s s', $elapsed || '<1' );
- }
- }
-
+ my $time_report = $self->time_report($formatter, $parser);
$formatter->_output( $pretty
. ( $self->{results} ? "\n" . $self->{results} : "" )
. $self->_make_ok_line($time_report) );