summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/Subtest.pm
diff options
context:
space:
mode:
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/Subtest.pm')
-rwxr-xr-xsystems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/Subtest.pm9
1 files changed, 7 insertions, 2 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/Subtest.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/Subtest.pm
index 89081fa225..6e8ebc9a09 100755
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/Subtest.pm
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/Subtest.pm
@@ -2,10 +2,10 @@ package Test2::Event::Subtest;
use strict;
use warnings;
-our $VERSION = '1.302183';
+our $VERSION = '1.302194';
BEGIN { require Test2::Event::Ok; our @ISA = qw(Test2::Event::Ok) }
-use Test2::Util::HashBase qw{subevents buffered subtest_id subtest_uuid};
+use Test2::Util::HashBase qw{subevents buffered subtest_id subtest_uuid start_stamp stop_stamp};
sub init {
my $self = shift;
@@ -68,10 +68,15 @@ sub facet_data {
my $out = $self->SUPER::facet_data();
+ my $start = $self->start_stamp;
+ my $stop = $self->stop_stamp;
+
$out->{parent} = {
hid => $self->subtest_id,
children => [map {$_->facet_data} @{$self->{+SUBEVENTS}}],
buffered => $self->{+BUFFERED},
+ $start ? (start_stamp => $start) : (),
+ $stop ? (stop_stamp => $stop) : (),
};
return $out;