summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/API.pm
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2024-03-15 03:06:35 +0000
committerNorbert Preining <norbert@preining.info>2024-03-15 03:06:35 +0000
commit12679ab7d3c2a210f4123163671b532b8b55d5f9 (patch)
tree0060d13467186ad977f4e73488ee20dd6c0017ab /systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/API.pm
parent62170822e034fdd3f81de7274835d0d3b0467100 (diff)
CTAN sync 202403150306
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/API.pm')
-rwxr-xr-xsystems/texlive/tlnet/tlpkg/tlperl/lib/Test2/API.pm9
1 files changed, 8 insertions, 1 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/API.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/API.pm
index 6c663468ab..68034c29d1 100755
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/API.pm
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/API.pm
@@ -2,6 +2,7 @@ package Test2::API;
use strict;
use warnings;
+use Time::HiRes qw/time/;
use Test2::Util qw/USE_THREADS/;
BEGIN {
@@ -9,7 +10,7 @@ BEGIN {
$ENV{TEST2_ACTIVE} = 1;
}
-our $VERSION = '1.302183';
+our $VERSION = '1.302194';
my $INST;
@@ -680,6 +681,8 @@ sub run_subtest {
};
}
+ my $start_stamp = time;
+
my ($ok, $err, $finished);
T2_SUBTEST_WRAPPER: {
# Do not use 'try' cause it localizes __DIE__
@@ -696,6 +699,8 @@ sub run_subtest {
}
}
+ my $stop_stamp = time;
+
if ($params->{no_fork}) {
if ($$ != $ctx->trace->pid) {
warn $ok ? "Forked inside subtest, but subtest never finished!\n" : $err;
@@ -746,6 +751,8 @@ sub run_subtest {
subtest_uuid => $hub->uuid,
buffered => $buffered,
subevents => \@events,
+ start_stamp => $start_stamp,
+ stop_stamp => $stop_stamp,
);
my $plan_ok = $hub->check_plan;