diff options
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/Test2')
55 files changed, 73 insertions, 60 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; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/API/Breakage.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/API/Breakage.pm index b661b9e2b8..50234af864 100755 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/API/Breakage.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/API/Breakage.pm @@ -2,7 +2,7 @@ package Test2::API::Breakage; use strict; use warnings; -our $VERSION = '1.302183'; +our $VERSION = '1.302194'; use Test2::Util qw/pkg_to_file/; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/API/Context.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/API/Context.pm index f94993c8e8..c6b638d015 100755 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/API/Context.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/API/Context.pm @@ -2,7 +2,7 @@ package Test2::API::Context; use strict; use warnings; -our $VERSION = '1.302183'; +our $VERSION = '1.302194'; use Carp qw/confess croak/; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/API/Instance.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/API/Instance.pm index 8a0ef99e3d..9a9ef58e3c 100755 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/API/Instance.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/API/Instance.pm @@ -2,7 +2,7 @@ package Test2::API::Instance; use strict; use warnings; -our $VERSION = '1.302183'; +our $VERSION = '1.302194'; our @CARP_NOT = qw/Test2::API Test2::API::Instance Test2::IPC::Driver Test2::Formatter/; use Carp qw/confess carp/; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/API/InterceptResult.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/API/InterceptResult.pm index a679ac4806..1d07841f1c 100755 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/API/InterceptResult.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/API/InterceptResult.pm @@ -2,7 +2,7 @@ package Test2::API::InterceptResult; use strict; use warnings; -our $VERSION = '1.302183'; +our $VERSION = '1.302194'; use Scalar::Util qw/blessed/; use Test2::Util qw/pkg_to_file/; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/API/InterceptResult/Event.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/API/InterceptResult/Event.pm index 860f4966ee..a93c4fd3c1 100755 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/API/InterceptResult/Event.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/API/InterceptResult/Event.pm @@ -2,7 +2,7 @@ package Test2::API::InterceptResult::Event; use strict; use warnings; -our $VERSION = '1.302183'; +our $VERSION = '1.302194'; use List::Util qw/first/; use Test2::Util qw/pkg_to_file/; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/API/InterceptResult/Facet.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/API/InterceptResult/Facet.pm index ca4a9b38b5..54589fa5af 100755 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/API/InterceptResult/Facet.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/API/InterceptResult/Facet.pm @@ -2,7 +2,7 @@ package Test2::API::InterceptResult::Facet; use strict; use warnings; -our $VERSION = '1.302183'; +our $VERSION = '1.302194'; BEGIN { require Test2::EventFacet; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/API/InterceptResult/Hub.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/API/InterceptResult/Hub.pm index aeb92c7b54..fa0c329a0d 100755 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/API/InterceptResult/Hub.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/API/InterceptResult/Hub.pm @@ -2,7 +2,7 @@ package Test2::API::InterceptResult::Hub; use strict; use warnings; -our $VERSION = '1.302183'; +our $VERSION = '1.302194'; BEGIN { require Test2::Hub; our @ISA = qw(Test2::Hub) } use Test2::Util::HashBase; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/API/InterceptResult/Squasher.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/API/InterceptResult/Squasher.pm index ace805e781..670b9c7a99 100755 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/API/InterceptResult/Squasher.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/API/InterceptResult/Squasher.pm @@ -2,7 +2,7 @@ package Test2::API::InterceptResult::Squasher; use strict; use warnings; -our $VERSION = '1.302183'; +our $VERSION = '1.302194'; use Carp qw/croak/; use List::Util qw/first/; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/API/Stack.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/API/Stack.pm index b5585a8ef4..98147b2a96 100755 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/API/Stack.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/API/Stack.pm @@ -2,7 +2,7 @@ package Test2::API::Stack; use strict; use warnings; -our $VERSION = '1.302183'; +our $VERSION = '1.302194'; use Test2::Hub(); diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event.pm index 99a6fd43cb..b914bd84cf 100755 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event.pm @@ -2,7 +2,7 @@ package Test2::Event; use strict; use warnings; -our $VERSION = '1.302183'; +our $VERSION = '1.302194'; use Scalar::Util qw/blessed reftype/; use Carp qw/croak/; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/Bail.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/Bail.pm index 9b5092def8..49b8fe0682 100755 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/Bail.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/Bail.pm @@ -2,7 +2,7 @@ package Test2::Event::Bail; use strict; use warnings; -our $VERSION = '1.302183'; +our $VERSION = '1.302194'; BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) } diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/Diag.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/Diag.pm index fb75235233..5ea440904e 100755 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/Diag.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/Diag.pm @@ -2,7 +2,7 @@ package Test2::Event::Diag; use strict; use warnings; -our $VERSION = '1.302183'; +our $VERSION = '1.302194'; BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) } diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/Encoding.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/Encoding.pm index 831fcebb4d..7f69da1b31 100755 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/Encoding.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/Encoding.pm @@ -2,7 +2,7 @@ package Test2::Event::Encoding; use strict; use warnings; -our $VERSION = '1.302183'; +our $VERSION = '1.302194'; use Carp qw/croak/; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/Exception.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/Exception.pm index a02a6012ac..5898dc76b4 100755 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/Exception.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/Exception.pm @@ -2,7 +2,7 @@ package Test2::Event::Exception; use strict; use warnings; -our $VERSION = '1.302183'; +our $VERSION = '1.302194'; BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) } diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/Fail.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/Fail.pm index 7a1eaa94f2..444c3f6c06 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/Fail.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/Fail.pm @@ -2,7 +2,7 @@ package Test2::Event::Fail; use strict; use warnings; -our $VERSION = '1.302183'; +our $VERSION = '1.302194'; use Test2::EventFacet::Info; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/Generic.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/Generic.pm index 409fb77bc4..170aa631bd 100755 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/Generic.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/Generic.pm @@ -5,7 +5,7 @@ use warnings; use Carp qw/croak/; use Scalar::Util qw/reftype/; -our $VERSION = '1.302183'; +our $VERSION = '1.302194'; BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) } use Test2::Util::HashBase; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/Note.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/Note.pm index 13613f8c96..d8e81eae04 100755 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/Note.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/Note.pm @@ -2,7 +2,7 @@ package Test2::Event::Note; use strict; use warnings; -our $VERSION = '1.302183'; +our $VERSION = '1.302194'; BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) } diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/Ok.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/Ok.pm index d39c1dbf84..847baede3c 100755 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/Ok.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/Ok.pm @@ -2,7 +2,7 @@ package Test2::Event::Ok; use strict; use warnings; -our $VERSION = '1.302183'; +our $VERSION = '1.302194'; BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) } diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/Pass.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/Pass.pm index b5050459ce..108ad5a0a2 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/Pass.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/Pass.pm @@ -2,7 +2,7 @@ package Test2::Event::Pass; use strict; use warnings; -our $VERSION = '1.302183'; +our $VERSION = '1.302194'; use Test2::EventFacet::Info; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/Plan.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/Plan.pm index cc9d8049e3..b40b332c97 100755 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/Plan.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/Plan.pm @@ -2,7 +2,7 @@ package Test2::Event::Plan; use strict; use warnings; -our $VERSION = '1.302183'; +our $VERSION = '1.302194'; BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) } diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/Skip.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/Skip.pm index 75d7db1bd8..de73c68ef1 100755 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/Skip.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/Skip.pm @@ -2,7 +2,7 @@ package Test2::Event::Skip; use strict; use warnings; -our $VERSION = '1.302183'; +our $VERSION = '1.302194'; BEGIN { require Test2::Event::Ok; our @ISA = qw(Test2::Event::Ok) } 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; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/TAP/Version.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/TAP/Version.pm index bb90cc5f49..f52290fcad 100755 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/TAP/Version.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/TAP/Version.pm @@ -2,7 +2,7 @@ package Test2::Event::TAP::Version; use strict; use warnings; -our $VERSION = '1.302183'; +our $VERSION = '1.302194'; use Carp qw/croak/; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/V2.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/V2.pm index accab090d6..f94b76c21e 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/V2.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/V2.pm @@ -2,7 +2,7 @@ package Test2::Event::V2; use strict; use warnings; -our $VERSION = '1.302183'; +our $VERSION = '1.302194'; use Scalar::Util qw/reftype/; use Carp qw/croak/; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/Waiting.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/Waiting.pm index 0f92a910b7..d031430b7a 100755 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/Waiting.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Event/Waiting.pm @@ -2,7 +2,7 @@ package Test2::Event::Waiting; use strict; use warnings; -our $VERSION = '1.302183'; +our $VERSION = '1.302194'; BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) } diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/EventFacet.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/EventFacet.pm index 171e005f85..96bf6c5e08 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/EventFacet.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/EventFacet.pm @@ -2,7 +2,7 @@ package Test2::EventFacet; use strict; use warnings; -our $VERSION = '1.302183'; +our $VERSION = '1.302194'; use Test2::Util::HashBase qw/-details/; use Carp qw/croak/; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/EventFacet/About.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/EventFacet/About.pm index 50dfa4dfe0..e0a9ad6d93 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/EventFacet/About.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/EventFacet/About.pm @@ -2,7 +2,7 @@ package Test2::EventFacet::About; use strict; use warnings; -our $VERSION = '1.302183'; +our $VERSION = '1.302194'; BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) } use Test2::Util::HashBase qw{ -package -no_display -uuid -eid }; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/EventFacet/Amnesty.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/EventFacet/Amnesty.pm index fb65846f16..4850aa377d 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/EventFacet/Amnesty.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/EventFacet/Amnesty.pm @@ -2,7 +2,7 @@ package Test2::EventFacet::Amnesty; use strict; use warnings; -our $VERSION = '1.302183'; +our $VERSION = '1.302194'; sub is_list { 1 } diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/EventFacet/Assert.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/EventFacet/Assert.pm index ffe2b05439..52554c9ab5 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/EventFacet/Assert.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/EventFacet/Assert.pm @@ -2,7 +2,7 @@ package Test2::EventFacet::Assert; use strict; use warnings; -our $VERSION = '1.302183'; +our $VERSION = '1.302194'; BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) } use Test2::Util::HashBase qw{ -pass -no_debug -number }; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/EventFacet/Control.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/EventFacet/Control.pm index 891d38f6dd..e8cc63ac3b 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/EventFacet/Control.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/EventFacet/Control.pm @@ -2,7 +2,7 @@ package Test2::EventFacet::Control; use strict; use warnings; -our $VERSION = '1.302183'; +our $VERSION = '1.302194'; BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) } use Test2::Util::HashBase qw{ -global -terminate -halt -has_callback -encoding -phase }; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/EventFacet/Error.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/EventFacet/Error.pm index 407e7e7368..8772e9d4f6 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/EventFacet/Error.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/EventFacet/Error.pm @@ -2,7 +2,7 @@ package Test2::EventFacet::Error; use strict; use warnings; -our $VERSION = '1.302183'; +our $VERSION = '1.302194'; sub facet_key { 'errors' } sub is_list { 1 } diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/EventFacet/Hub.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/EventFacet/Hub.pm index 35a75c13a7..f8f6f3f90b 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/EventFacet/Hub.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/EventFacet/Hub.pm @@ -2,7 +2,7 @@ package Test2::EventFacet::Hub; use strict; use warnings; -our $VERSION = '1.302183'; +our $VERSION = '1.302194'; sub is_list { 1 } sub facet_key { 'hubs' } diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/EventFacet/Info.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/EventFacet/Info.pm index 2aa38e96bd..753344753a 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/EventFacet/Info.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/EventFacet/Info.pm @@ -2,7 +2,7 @@ package Test2::EventFacet::Info; use strict; use warnings; -our $VERSION = '1.302183'; +our $VERSION = '1.302194'; sub is_list { 1 } diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/EventFacet/Info/Table.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/EventFacet/Info/Table.pm index 351e88b4fa..8ed95371b0 100755 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/EventFacet/Info/Table.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/EventFacet/Info/Table.pm @@ -2,7 +2,7 @@ package Test2::EventFacet::Info::Table; use strict; use warnings; -our $VERSION = '1.302183'; +our $VERSION = '1.302194'; use Carp qw/confess/; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/EventFacet/Meta.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/EventFacet/Meta.pm index 17f78bd59d..59729a1bdb 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/EventFacet/Meta.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/EventFacet/Meta.pm @@ -2,7 +2,7 @@ package Test2::EventFacet::Meta; use strict; use warnings; -our $VERSION = '1.302183'; +our $VERSION = '1.302194'; BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) } use vars qw/$AUTOLOAD/; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/EventFacet/Parent.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/EventFacet/Parent.pm index 82521cd63d..aab230c8ca 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/EventFacet/Parent.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/EventFacet/Parent.pm @@ -2,12 +2,12 @@ package Test2::EventFacet::Parent; use strict; use warnings; -our $VERSION = '1.302183'; +our $VERSION = '1.302194'; use Carp qw/confess/; BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) } -use Test2::Util::HashBase qw{ -hid -children -buffered }; +use Test2::Util::HashBase qw{-hid -children -buffered -start_stamp -stop_stamp}; sub init { confess "Attribute 'hid' must be set" diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/EventFacet/Plan.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/EventFacet/Plan.pm index 99349b3575..de22be4717 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/EventFacet/Plan.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/EventFacet/Plan.pm @@ -2,7 +2,7 @@ package Test2::EventFacet::Plan; use strict; use warnings; -our $VERSION = '1.302183'; +our $VERSION = '1.302194'; BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) } use Test2::Util::HashBase qw{ -count -skip -none }; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/EventFacet/Render.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/EventFacet/Render.pm index 8cc8b7a8e5..2a38d1b75e 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/EventFacet/Render.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/EventFacet/Render.pm @@ -2,7 +2,7 @@ package Test2::EventFacet::Render; use strict; use warnings; -our $VERSION = '1.302183'; +our $VERSION = '1.302194'; sub is_list { 1 } diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/EventFacet/Trace.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/EventFacet/Trace.pm index 6c4e4550b5..fbdfa2b70d 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/EventFacet/Trace.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/EventFacet/Trace.pm @@ -2,7 +2,7 @@ package Test2::EventFacet::Trace; use strict; use warnings; -our $VERSION = '1.302183'; +our $VERSION = '1.302194'; BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) } diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Formatter.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Formatter.pm index 981baba2d1..93117a0898 100755 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Formatter.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Formatter.pm @@ -2,7 +2,7 @@ package Test2::Formatter; use strict; use warnings; -our $VERSION = '1.302183'; +our $VERSION = '1.302194'; my %ADDED; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Formatter/TAP.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Formatter/TAP.pm index 0b1e9475d0..ae381d7e9d 100755 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Formatter/TAP.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Formatter/TAP.pm @@ -2,7 +2,7 @@ package Test2::Formatter::TAP; use strict; use warnings; -our $VERSION = '1.302183'; +our $VERSION = '1.302194'; use Test2::Util qw/clone_io/; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Hub.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Hub.pm index 207099b250..5ee50809bf 100755 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Hub.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Hub.pm @@ -2,7 +2,7 @@ package Test2::Hub; use strict; use warnings; -our $VERSION = '1.302183'; +our $VERSION = '1.302194'; use Carp qw/carp croak confess/; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Hub/Interceptor.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Hub/Interceptor.pm index 13930c55bd..c1c86d818d 100755 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Hub/Interceptor.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Hub/Interceptor.pm @@ -2,7 +2,7 @@ package Test2::Hub::Interceptor; use strict; use warnings; -our $VERSION = '1.302183'; +our $VERSION = '1.302194'; use Test2::Hub::Interceptor::Terminator(); diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Hub/Interceptor/Terminator.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Hub/Interceptor/Terminator.pm index b37f505745..90c03f91b7 100755 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Hub/Interceptor/Terminator.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Hub/Interceptor/Terminator.pm @@ -2,7 +2,7 @@ package Test2::Hub::Interceptor::Terminator; use strict; use warnings; -our $VERSION = '1.302183'; +our $VERSION = '1.302194'; 1; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Hub/Subtest.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Hub/Subtest.pm index 7c75eed0a8..89dde5b432 100755 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Hub/Subtest.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Hub/Subtest.pm @@ -2,7 +2,7 @@ package Test2::Hub::Subtest; use strict; use warnings; -our $VERSION = '1.302183'; +our $VERSION = '1.302194'; BEGIN { require Test2::Hub; our @ISA = qw(Test2::Hub) } use Test2::Util::HashBase qw/nested exit_code manual_skip_all/; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/IPC.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/IPC.pm index 1f6478b6ad..807bd6c629 100755 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/IPC.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/IPC.pm @@ -2,7 +2,7 @@ package Test2::IPC; use strict; use warnings; -our $VERSION = '1.302183'; +our $VERSION = '1.302194'; use Test2::API::Instance; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/IPC/Driver.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/IPC/Driver.pm index 35978070e2..a00e1ec4c8 100755 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/IPC/Driver.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/IPC/Driver.pm @@ -2,7 +2,7 @@ package Test2::IPC::Driver; use strict; use warnings; -our $VERSION = '1.302183'; +our $VERSION = '1.302194'; use Carp qw/confess/; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/IPC/Driver/Files.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/IPC/Driver/Files.pm index a443c9193a..4edd40c463 100755 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/IPC/Driver/Files.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/IPC/Driver/Files.pm @@ -2,7 +2,7 @@ package Test2::IPC::Driver::Files; use strict; use warnings; -our $VERSION = '1.302183'; +our $VERSION = '1.302194'; BEGIN { require Test2::IPC::Driver; our @ISA = qw(Test2::IPC::Driver) } @@ -296,8 +296,8 @@ sub parse_event_filename { return { file => $file, - ready => $ready, - complete => $complete, + ready => !!$ready, + complete => !!$complete, global => $global, type => $type, hid => $hid, diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Tools/Tiny.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Tools/Tiny.pm index c9c5bb3215..636ba2f672 100755 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Tools/Tiny.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Tools/Tiny.pm @@ -16,7 +16,7 @@ use Test2::API qw/context run_subtest test2_stack/; use Test2::Hub::Interceptor(); use Test2::Hub::Interceptor::Terminator(); -our $VERSION = '1.302183'; +our $VERSION = '1.302194'; BEGIN { require Exporter; our @ISA = qw(Exporter) } our @EXPORT = qw{ diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Util.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Util.pm index b78f80a904..aebfc2fd69 100755 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Util.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Util.pm @@ -2,7 +2,7 @@ package Test2::Util; use strict; use warnings; -our $VERSION = '1.302183'; +our $VERSION = '1.302194'; use POSIX(); use Config qw/%Config/; @@ -49,7 +49,8 @@ sub _can_thread { # Threads are broken on perl 5.10.0 built with gcc 4.8+ if ($] == 5.010000 && $Config{'ccname'} eq 'gcc' && $Config{'gccversion'}) { - my @parts = split /\./, $Config{'gccversion'}; + return 0 unless $Config{'gccversion'} =~ m/^(\d+)\.(\d+)/; + my @parts = split /[\.\s]+/, $Config{'gccversion'}; return 0 if $parts[0] > 4 || ($parts[0] == 4 && $parts[1] >= 8); } diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Util/ExternalMeta.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Util/ExternalMeta.pm index cfa0a5699b..774870c689 100755 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Util/ExternalMeta.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Util/ExternalMeta.pm @@ -2,7 +2,7 @@ package Test2::Util::ExternalMeta; use strict; use warnings; -our $VERSION = '1.302183'; +our $VERSION = '1.302194'; use Carp qw/croak/; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Util/Facets2Legacy.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Util/Facets2Legacy.pm index 0e0ed65dbb..d8d77d52e1 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Util/Facets2Legacy.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Util/Facets2Legacy.pm @@ -2,7 +2,7 @@ package Test2::Util::Facets2Legacy; use strict; use warnings; -our $VERSION = '1.302183'; +our $VERSION = '1.302194'; use Carp qw/croak confess/; use Scalar::Util qw/blessed/; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Util/HashBase.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Util/HashBase.pm index da1bf916a8..c0c61a1bce 100755 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Util/HashBase.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Util/HashBase.pm @@ -2,7 +2,7 @@ package Test2::Util::HashBase; use strict; use warnings; -our $VERSION = '1.302183'; +our $VERSION = '1.302194'; ################################################################# # # diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Util/Trace.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Util/Trace.pm index b374064cbe..ad80226cae 100755 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Util/Trace.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/Util/Trace.pm @@ -6,7 +6,7 @@ use strict; our @ISA = ('Test2::EventFacet::Trace'); -our $VERSION = '1.302183'; +our $VERSION = '1.302194'; 1; |