From 12679ab7d3c2a210f4123163671b532b8b55d5f9 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Fri, 15 Mar 2024 03:06:35 +0000 Subject: CTAN sync 202403150306 --- systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/API.pm | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/API.pm') 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; -- cgit v1.2.3