diff options
author | Norbert Preining <norbert@preining.info> | 2024-03-15 03:06:35 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2024-03-15 03:06:35 +0000 |
commit | 12679ab7d3c2a210f4123163671b532b8b55d5f9 (patch) | |
tree | 0060d13467186ad977f4e73488ee20dd6c0017ab /systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/API.pm | |
parent | 62170822e034fdd3f81de7274835d0d3b0467100 (diff) |
CTAN sync 202403150306
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/API.pm')
-rwxr-xr-x | systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/API.pm | 9 |
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; |