diff options
author | Siep Kroonenberg <siepo@cybercomm.nl> | 2024-02-15 21:14:42 +0000 |
---|---|---|
committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2024-02-15 21:14:42 +0000 |
commit | 2ef219d80efde1bb5ab11cbdd8bdd059556b1f89 (patch) | |
tree | 95a8cb845703f263101ea7a0842bb75d93109bef /Master/tlpkg/tlperl/lib/Test2 | |
parent | 40aaa4ec3407e1ab404f4d1b0547205ac561269a (diff) |
Perl 5.38.2
git-svn-id: svn://tug.org/texlive/trunk@69898 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Test2')
55 files changed, 73 insertions, 60 deletions
diff --git a/Master/tlpkg/tlperl/lib/Test2/API.pm b/Master/tlpkg/tlperl/lib/Test2/API.pm index 6c663468ab0..68034c29d18 100755 --- a/Master/tlpkg/tlperl/lib/Test2/API.pm +++ b/Master/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/Master/tlpkg/tlperl/lib/Test2/API/Breakage.pm b/Master/tlpkg/tlperl/lib/Test2/API/Breakage.pm index b661b9e2b8a..50234af864b 100755 --- a/Master/tlpkg/tlperl/lib/Test2/API/Breakage.pm +++ b/Master/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/Master/tlpkg/tlperl/lib/Test2/API/Context.pm b/Master/tlpkg/tlperl/lib/Test2/API/Context.pm index f94993c8e85..c6b638d0152 100755 --- a/Master/tlpkg/tlperl/lib/Test2/API/Context.pm +++ b/Master/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/Master/tlpkg/tlperl/lib/Test2/API/Instance.pm b/Master/tlpkg/tlperl/lib/Test2/API/Instance.pm index 8a0ef99e3d3..9a9ef58e3cc 100755 --- a/Master/tlpkg/tlperl/lib/Test2/API/Instance.pm +++ b/Master/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/Master/tlpkg/tlperl/lib/Test2/API/InterceptResult.pm b/Master/tlpkg/tlperl/lib/Test2/API/InterceptResult.pm index a679ac4806e..1d07841f1ca 100755 --- a/Master/tlpkg/tlperl/lib/Test2/API/InterceptResult.pm +++ b/Master/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/Master/tlpkg/tlperl/lib/Test2/API/InterceptResult/Event.pm b/Master/tlpkg/tlperl/lib/Test2/API/InterceptResult/Event.pm index 860f4966ee8..a93c4fd3c13 100755 --- a/Master/tlpkg/tlperl/lib/Test2/API/InterceptResult/Event.pm +++ b/Master/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/Master/tlpkg/tlperl/lib/Test2/API/InterceptResult/Facet.pm b/Master/tlpkg/tlperl/lib/Test2/API/InterceptResult/Facet.pm index ca4a9b38b5b..54589fa5af2 100755 --- a/Master/tlpkg/tlperl/lib/Test2/API/InterceptResult/Facet.pm +++ b/Master/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/Master/tlpkg/tlperl/lib/Test2/API/InterceptResult/Hub.pm b/Master/tlpkg/tlperl/lib/Test2/API/InterceptResult/Hub.pm index aeb92c7b54e..fa0c329a0dd 100755 --- a/Master/tlpkg/tlperl/lib/Test2/API/InterceptResult/Hub.pm +++ b/Master/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/Master/tlpkg/tlperl/lib/Test2/API/InterceptResult/Squasher.pm b/Master/tlpkg/tlperl/lib/Test2/API/InterceptResult/Squasher.pm index ace805e7816..670b9c7a992 100755 --- a/Master/tlpkg/tlperl/lib/Test2/API/InterceptResult/Squasher.pm +++ b/Master/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/Master/tlpkg/tlperl/lib/Test2/API/Stack.pm b/Master/tlpkg/tlperl/lib/Test2/API/Stack.pm index b5585a8ef4a..98147b2a960 100755 --- a/Master/tlpkg/tlperl/lib/Test2/API/Stack.pm +++ b/Master/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/Master/tlpkg/tlperl/lib/Test2/Event.pm b/Master/tlpkg/tlperl/lib/Test2/Event.pm index 99a6fd43cb1..b914bd84cfa 100755 --- a/Master/tlpkg/tlperl/lib/Test2/Event.pm +++ b/Master/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/Master/tlpkg/tlperl/lib/Test2/Event/Bail.pm b/Master/tlpkg/tlperl/lib/Test2/Event/Bail.pm index 9b5092def83..49b8fe06826 100755 --- a/Master/tlpkg/tlperl/lib/Test2/Event/Bail.pm +++ b/Master/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/Master/tlpkg/tlperl/lib/Test2/Event/Diag.pm b/Master/tlpkg/tlperl/lib/Test2/Event/Diag.pm index fb752352338..5ea440904eb 100755 --- a/Master/tlpkg/tlperl/lib/Test2/Event/Diag.pm +++ b/Master/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/Master/tlpkg/tlperl/lib/Test2/Event/Encoding.pm b/Master/tlpkg/tlperl/lib/Test2/Event/Encoding.pm index 831fcebb4da..7f69da1b31c 100755 --- a/Master/tlpkg/tlperl/lib/Test2/Event/Encoding.pm +++ b/Master/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/Master/tlpkg/tlperl/lib/Test2/Event/Exception.pm b/Master/tlpkg/tlperl/lib/Test2/Event/Exception.pm index a02a6012ac1..5898dc76b42 100755 --- a/Master/tlpkg/tlperl/lib/Test2/Event/Exception.pm +++ b/Master/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/Master/tlpkg/tlperl/lib/Test2/Event/Fail.pm b/Master/tlpkg/tlperl/lib/Test2/Event/Fail.pm index 7a1eaa94f24..444c3f6c06e 100644 --- a/Master/tlpkg/tlperl/lib/Test2/Event/Fail.pm +++ b/Master/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/Master/tlpkg/tlperl/lib/Test2/Event/Generic.pm b/Master/tlpkg/tlperl/lib/Test2/Event/Generic.pm index 409fb77bc49..170aa631bde 100755 --- a/Master/tlpkg/tlperl/lib/Test2/Event/Generic.pm +++ b/Master/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/Master/tlpkg/tlperl/lib/Test2/Event/Note.pm b/Master/tlpkg/tlperl/lib/Test2/Event/Note.pm index 13613f8c961..d8e81eae042 100755 --- a/Master/tlpkg/tlperl/lib/Test2/Event/Note.pm +++ b/Master/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/Master/tlpkg/tlperl/lib/Test2/Event/Ok.pm b/Master/tlpkg/tlperl/lib/Test2/Event/Ok.pm index d39c1dbf844..847baede3ca 100755 --- a/Master/tlpkg/tlperl/lib/Test2/Event/Ok.pm +++ b/Master/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/Master/tlpkg/tlperl/lib/Test2/Event/Pass.pm b/Master/tlpkg/tlperl/lib/Test2/Event/Pass.pm index b5050459ce7..108ad5a0a27 100644 --- a/Master/tlpkg/tlperl/lib/Test2/Event/Pass.pm +++ b/Master/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/Master/tlpkg/tlperl/lib/Test2/Event/Plan.pm b/Master/tlpkg/tlperl/lib/Test2/Event/Plan.pm index cc9d8049e33..b40b332c972 100755 --- a/Master/tlpkg/tlperl/lib/Test2/Event/Plan.pm +++ b/Master/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/Master/tlpkg/tlperl/lib/Test2/Event/Skip.pm b/Master/tlpkg/tlperl/lib/Test2/Event/Skip.pm index 75d7db1bd8e..de73c68ef18 100755 --- a/Master/tlpkg/tlperl/lib/Test2/Event/Skip.pm +++ b/Master/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/Master/tlpkg/tlperl/lib/Test2/Event/Subtest.pm b/Master/tlpkg/tlperl/lib/Test2/Event/Subtest.pm index 89081fa2251..6e8ebc9a09d 100755 --- a/Master/tlpkg/tlperl/lib/Test2/Event/Subtest.pm +++ b/Master/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/Master/tlpkg/tlperl/lib/Test2/Event/TAP/Version.pm b/Master/tlpkg/tlperl/lib/Test2/Event/TAP/Version.pm index bb90cc5f492..f52290fcad5 100755 --- a/Master/tlpkg/tlperl/lib/Test2/Event/TAP/Version.pm +++ b/Master/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/Master/tlpkg/tlperl/lib/Test2/Event/V2.pm b/Master/tlpkg/tlperl/lib/Test2/Event/V2.pm index accab090d6c..f94b76c21ea 100644 --- a/Master/tlpkg/tlperl/lib/Test2/Event/V2.pm +++ b/Master/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/Master/tlpkg/tlperl/lib/Test2/Event/Waiting.pm b/Master/tlpkg/tlperl/lib/Test2/Event/Waiting.pm index 0f92a910b79..d031430b7af 100755 --- a/Master/tlpkg/tlperl/lib/Test2/Event/Waiting.pm +++ b/Master/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/Master/tlpkg/tlperl/lib/Test2/EventFacet.pm b/Master/tlpkg/tlperl/lib/Test2/EventFacet.pm index 171e005f859..96bf6c5e08a 100644 --- a/Master/tlpkg/tlperl/lib/Test2/EventFacet.pm +++ b/Master/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/Master/tlpkg/tlperl/lib/Test2/EventFacet/About.pm b/Master/tlpkg/tlperl/lib/Test2/EventFacet/About.pm index 50dfa4dfe01..e0a9ad6d938 100644 --- a/Master/tlpkg/tlperl/lib/Test2/EventFacet/About.pm +++ b/Master/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/Master/tlpkg/tlperl/lib/Test2/EventFacet/Amnesty.pm b/Master/tlpkg/tlperl/lib/Test2/EventFacet/Amnesty.pm index fb65846f16d..4850aa377df 100644 --- a/Master/tlpkg/tlperl/lib/Test2/EventFacet/Amnesty.pm +++ b/Master/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/Master/tlpkg/tlperl/lib/Test2/EventFacet/Assert.pm b/Master/tlpkg/tlperl/lib/Test2/EventFacet/Assert.pm index ffe2b054393..52554c9ab5f 100644 --- a/Master/tlpkg/tlperl/lib/Test2/EventFacet/Assert.pm +++ b/Master/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/Master/tlpkg/tlperl/lib/Test2/EventFacet/Control.pm b/Master/tlpkg/tlperl/lib/Test2/EventFacet/Control.pm index 891d38f6dd4..e8cc63ac3b1 100644 --- a/Master/tlpkg/tlperl/lib/Test2/EventFacet/Control.pm +++ b/Master/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/Master/tlpkg/tlperl/lib/Test2/EventFacet/Error.pm b/Master/tlpkg/tlperl/lib/Test2/EventFacet/Error.pm index 407e7e73680..8772e9d4f66 100644 --- a/Master/tlpkg/tlperl/lib/Test2/EventFacet/Error.pm +++ b/Master/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/Master/tlpkg/tlperl/lib/Test2/EventFacet/Hub.pm b/Master/tlpkg/tlperl/lib/Test2/EventFacet/Hub.pm index 35a75c13a72..f8f6f3f90b9 100644 --- a/Master/tlpkg/tlperl/lib/Test2/EventFacet/Hub.pm +++ b/Master/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/Master/tlpkg/tlperl/lib/Test2/EventFacet/Info.pm b/Master/tlpkg/tlperl/lib/Test2/EventFacet/Info.pm index 2aa38e96bd7..753344753ad 100644 --- a/Master/tlpkg/tlperl/lib/Test2/EventFacet/Info.pm +++ b/Master/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/Master/tlpkg/tlperl/lib/Test2/EventFacet/Info/Table.pm b/Master/tlpkg/tlperl/lib/Test2/EventFacet/Info/Table.pm index 351e88b4fa8..8ed95371b04 100755 --- a/Master/tlpkg/tlperl/lib/Test2/EventFacet/Info/Table.pm +++ b/Master/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/Master/tlpkg/tlperl/lib/Test2/EventFacet/Meta.pm b/Master/tlpkg/tlperl/lib/Test2/EventFacet/Meta.pm index 17f78bd59d4..59729a1bdb1 100644 --- a/Master/tlpkg/tlperl/lib/Test2/EventFacet/Meta.pm +++ b/Master/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/Master/tlpkg/tlperl/lib/Test2/EventFacet/Parent.pm b/Master/tlpkg/tlperl/lib/Test2/EventFacet/Parent.pm index 82521cd63d5..aab230c8ca3 100644 --- a/Master/tlpkg/tlperl/lib/Test2/EventFacet/Parent.pm +++ b/Master/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/Master/tlpkg/tlperl/lib/Test2/EventFacet/Plan.pm b/Master/tlpkg/tlperl/lib/Test2/EventFacet/Plan.pm index 99349b35755..de22be47173 100644 --- a/Master/tlpkg/tlperl/lib/Test2/EventFacet/Plan.pm +++ b/Master/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/Master/tlpkg/tlperl/lib/Test2/EventFacet/Render.pm b/Master/tlpkg/tlperl/lib/Test2/EventFacet/Render.pm index 8cc8b7a8e52..2a38d1b75e5 100644 --- a/Master/tlpkg/tlperl/lib/Test2/EventFacet/Render.pm +++ b/Master/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/Master/tlpkg/tlperl/lib/Test2/EventFacet/Trace.pm b/Master/tlpkg/tlperl/lib/Test2/EventFacet/Trace.pm index 6c4e4550b51..fbdfa2b70dc 100644 --- a/Master/tlpkg/tlperl/lib/Test2/EventFacet/Trace.pm +++ b/Master/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/Master/tlpkg/tlperl/lib/Test2/Formatter.pm b/Master/tlpkg/tlperl/lib/Test2/Formatter.pm index 981baba2d1d..93117a08985 100755 --- a/Master/tlpkg/tlperl/lib/Test2/Formatter.pm +++ b/Master/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/Master/tlpkg/tlperl/lib/Test2/Formatter/TAP.pm b/Master/tlpkg/tlperl/lib/Test2/Formatter/TAP.pm index 0b1e9475d00..ae381d7e9df 100755 --- a/Master/tlpkg/tlperl/lib/Test2/Formatter/TAP.pm +++ b/Master/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/Master/tlpkg/tlperl/lib/Test2/Hub.pm b/Master/tlpkg/tlperl/lib/Test2/Hub.pm index 207099b2502..5ee50809bf3 100755 --- a/Master/tlpkg/tlperl/lib/Test2/Hub.pm +++ b/Master/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/Master/tlpkg/tlperl/lib/Test2/Hub/Interceptor.pm b/Master/tlpkg/tlperl/lib/Test2/Hub/Interceptor.pm index 13930c55bd4..c1c86d818d9 100755 --- a/Master/tlpkg/tlperl/lib/Test2/Hub/Interceptor.pm +++ b/Master/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/Master/tlpkg/tlperl/lib/Test2/Hub/Interceptor/Terminator.pm b/Master/tlpkg/tlperl/lib/Test2/Hub/Interceptor/Terminator.pm index b37f505745b..90c03f91b73 100755 --- a/Master/tlpkg/tlperl/lib/Test2/Hub/Interceptor/Terminator.pm +++ b/Master/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/Master/tlpkg/tlperl/lib/Test2/Hub/Subtest.pm b/Master/tlpkg/tlperl/lib/Test2/Hub/Subtest.pm index 7c75eed0a87..89dde5b432e 100755 --- a/Master/tlpkg/tlperl/lib/Test2/Hub/Subtest.pm +++ b/Master/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/Master/tlpkg/tlperl/lib/Test2/IPC.pm b/Master/tlpkg/tlperl/lib/Test2/IPC.pm index 1f6478b6add..807bd6c6290 100755 --- a/Master/tlpkg/tlperl/lib/Test2/IPC.pm +++ b/Master/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/Master/tlpkg/tlperl/lib/Test2/IPC/Driver.pm b/Master/tlpkg/tlperl/lib/Test2/IPC/Driver.pm index 35978070e20..a00e1ec4c86 100755 --- a/Master/tlpkg/tlperl/lib/Test2/IPC/Driver.pm +++ b/Master/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/Master/tlpkg/tlperl/lib/Test2/IPC/Driver/Files.pm b/Master/tlpkg/tlperl/lib/Test2/IPC/Driver/Files.pm index a443c9193a1..4edd40c4631 100755 --- a/Master/tlpkg/tlperl/lib/Test2/IPC/Driver/Files.pm +++ b/Master/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/Master/tlpkg/tlperl/lib/Test2/Tools/Tiny.pm b/Master/tlpkg/tlperl/lib/Test2/Tools/Tiny.pm index c9c5bb3215c..636ba2f6729 100755 --- a/Master/tlpkg/tlperl/lib/Test2/Tools/Tiny.pm +++ b/Master/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/Master/tlpkg/tlperl/lib/Test2/Util.pm b/Master/tlpkg/tlperl/lib/Test2/Util.pm index b78f80a9040..aebfc2fd69e 100755 --- a/Master/tlpkg/tlperl/lib/Test2/Util.pm +++ b/Master/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/Master/tlpkg/tlperl/lib/Test2/Util/ExternalMeta.pm b/Master/tlpkg/tlperl/lib/Test2/Util/ExternalMeta.pm index cfa0a5699b8..774870c6893 100755 --- a/Master/tlpkg/tlperl/lib/Test2/Util/ExternalMeta.pm +++ b/Master/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/Master/tlpkg/tlperl/lib/Test2/Util/Facets2Legacy.pm b/Master/tlpkg/tlperl/lib/Test2/Util/Facets2Legacy.pm index 0e0ed65dbbc..d8d77d52e16 100644 --- a/Master/tlpkg/tlperl/lib/Test2/Util/Facets2Legacy.pm +++ b/Master/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/Master/tlpkg/tlperl/lib/Test2/Util/HashBase.pm b/Master/tlpkg/tlperl/lib/Test2/Util/HashBase.pm index da1bf916a85..c0c61a1bce8 100755 --- a/Master/tlpkg/tlperl/lib/Test2/Util/HashBase.pm +++ b/Master/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/Master/tlpkg/tlperl/lib/Test2/Util/Trace.pm b/Master/tlpkg/tlperl/lib/Test2/Util/Trace.pm index b374064cbe4..ad80226cae5 100755 --- a/Master/tlpkg/tlperl/lib/Test2/Util/Trace.pm +++ b/Master/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; |