Hello community, here is the log from the commit of package perl-Test-Simple for openSUSE:Factory checked in at 2018-04-17 11:10:40 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Test-Simple (Old) and /work/SRC/openSUSE:Factory/.perl-Test-Simple.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Test-Simple" Tue Apr 17 11:10:40 2018 rev:15 rq:595027 version:1.302135 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Test-Simple/perl-Test-Simple.changes 2018-03-20 21:51:17.289281135 +0100 +++ /work/SRC/openSUSE:Factory/.perl-Test-Simple.new/perl-Test-Simple.changes 2018-04-17 11:10:43.229536969 +0200 @@ -1,0 +2,15 @@ +Sat Mar 31 06:03:12 UTC 2018 - [email protected] + +- updated to 1.302135 + see /usr/share/doc/packages/perl-Test-Simple/Changes + + 1.302135 2018-03-29 22:53:00-07:00 America/Los_Angeles + + - No changes since last trial + + 1.302134 2018-03-19 21:20:08-07:00 America/Los_Angeles (TRIAL RELEASE) + + - Make sure all hubs, events, and contexts get a unique (per run) id. + - Use a common generator for unique(enough) id's (not UUIDs) + +------------------------------------------------------------------- Old: ---- Test-Simple-1.302133.tar.gz New: ---- Test-Simple-1.302135.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Test-Simple.spec ++++++ --- /var/tmp/diff_new_pack.P5ncq2/_old 2018-04-17 11:10:43.793510510 +0200 +++ /var/tmp/diff_new_pack.P5ncq2/_new 2018-04-17 11:10:43.793510510 +0200 @@ -17,7 +17,7 @@ Name: perl-Test-Simple -Version: 1.302133 +Version: 1.302135 Release: 0 %define cpan_name Test-Simple Summary: Basic utilities for writing tests ++++++ Test-Simple-1.302133.tar.gz -> Test-Simple-1.302135.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/Changes new/Test-Simple-1.302135/Changes --- old/Test-Simple-1.302133/Changes 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/Changes 2018-03-30 07:53:02.000000000 +0200 @@ -1,3 +1,12 @@ +1.302135 2018-03-29 22:53:00-07:00 America/Los_Angeles + + - No changes since last trial + +1.302134 2018-03-19 21:20:08-07:00 America/Los_Angeles (TRIAL RELEASE) + + - Make sure all hubs, events, and contexts get a unique (per run) id. + - Use a common generator for unique(enough) id's (not UUIDs) + 1.302133 2018-03-11 12:48:37-07:00 America/Los_Angeles - No changes since last trial diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/META.json new/Test-Simple-1.302135/META.json --- old/Test-Simple-1.302133/META.json 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/META.json 2018-03-30 07:53:02.000000000 +0200 @@ -47,7 +47,7 @@ "url" : "http://github.com/Test-More/test-more/"; } }, - "version" : "1.302133", + "version" : "1.302135", "x_breaks" : { "Log::Dispatch::Config::TestLog" : "<= 0.02", "Net::BitTorrent" : "<= 0.052", @@ -71,6 +71,6 @@ "Test::UseAllModules" : ">= 0.12, <= 0.14", "Test::Wrapper" : "<= v0.3.0" }, - "x_serialization_backend" : "Cpanel::JSON::XS version 4.00" + "x_serialization_backend" : "Cpanel::JSON::XS version 3.0239" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/META.yml new/Test-Simple-1.302135/META.yml --- old/Test-Simple-1.302133/META.yml 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/META.yml 2018-03-30 07:53:02.000000000 +0200 @@ -22,7 +22,7 @@ resources: bugtracker: http://github.com/Test-More/test-more/issues repository: http://github.com/Test-More/test-more/ -version: '1.302133' +version: '1.302135' x_breaks: Log::Dispatch::Config::TestLog: '<= 0.02' Net::BitTorrent: '<= 0.052' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/Makefile.PL new/Test-Simple-1.302135/Makefile.PL --- old/Test-Simple-1.302133/Makefile.PL 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/Makefile.PL 2018-03-30 07:53:02.000000000 +0200 @@ -23,7 +23,7 @@ "Storable" => 0, "utf8" => 0 }, - "VERSION" => "1.302133", + "VERSION" => "1.302135", "test" => { "TESTS" => "t/*.t t/Legacy/*.t t/Legacy/Bugs/*.t t/Legacy/Builder/*.t t/Legacy/Regression/*.t t/Legacy/Simple/*.t t/Legacy/Test2/*.t t/Legacy/Tester/*.t t/Legacy/subtest/*.t t/Legacy_And_Test2/*.t t/Test2/acceptance/*.t t/Test2/behavior/*.t t/Test2/legacy/*.t t/Test2/modules/*.t t/Test2/modules/API/*.t t/Test2/modules/Event/*.t t/Test2/modules/Event/TAP/*.t t/Test2/modules/EventFacet/*.t t/Test2/modules/Formatter/*.t t/Test2/modules/Hub/*.t t/Test2/modules/Hub/Interceptor/*.t t/Test2/modules/IPC/*.t t/Test2/modules/IPC/Driver/*.t t/Test2/modules/Tools/*.t t/Test2/modules/Util/*.t t/Test2/regression/*.t t/regression/*.t" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test/Builder/Formatter.pm new/Test-Simple-1.302135/lib/Test/Builder/Formatter.pm --- old/Test-Simple-1.302133/lib/Test/Builder/Formatter.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test/Builder/Formatter.pm 2018-03-30 07:53:02.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; BEGIN { require Test2::Formatter::TAP; our @ISA = qw(Test2::Formatter::TAP) } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test/Builder/Module.pm new/Test-Simple-1.302135/lib/Test/Builder/Module.pm --- old/Test-Simple-1.302133/lib/Test/Builder/Module.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test/Builder/Module.pm 2018-03-30 07:53:02.000000000 +0200 @@ -7,7 +7,7 @@ require Exporter; our @ISA = qw(Exporter); -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; =head1 NAME diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test/Builder/Tester/Color.pm new/Test-Simple-1.302135/lib/Test/Builder/Tester/Color.pm --- old/Test-Simple-1.302133/lib/Test/Builder/Tester/Color.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test/Builder/Tester/Color.pm 2018-03-30 07:53:02.000000000 +0200 @@ -1,7 +1,7 @@ package Test::Builder::Tester::Color; use strict; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; require Test::Builder::Tester; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test/Builder/Tester.pm new/Test-Simple-1.302135/lib/Test/Builder/Tester.pm --- old/Test-Simple-1.302133/lib/Test/Builder/Tester.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test/Builder/Tester.pm 2018-03-30 07:53:02.000000000 +0200 @@ -1,7 +1,7 @@ package Test::Builder::Tester; use strict; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; use Test::Builder; use Symbol; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test/Builder/TodoDiag.pm new/Test-Simple-1.302135/lib/Test/Builder/TodoDiag.pm --- old/Test-Simple-1.302133/lib/Test/Builder/TodoDiag.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test/Builder/TodoDiag.pm 2018-03-30 07:53:02.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; BEGIN { require Test2::Event::Diag; our @ISA = qw(Test2::Event::Diag) } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test/Builder.pm new/Test-Simple-1.302135/lib/Test/Builder.pm --- old/Test-Simple-1.302133/lib/Test/Builder.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test/Builder.pm 2018-03-30 07:53:02.000000000 +0200 @@ -4,7 +4,7 @@ use strict; use warnings; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; BEGIN { if( $] < 5.008 ) { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test/More.pm new/Test-Simple-1.302135/lib/Test/More.pm --- old/Test-Simple-1.302133/lib/Test/More.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test/More.pm 2018-03-30 07:53:02.000000000 +0200 @@ -17,7 +17,7 @@ return warn @_, " at $file line $line\n"; } -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; use Test::Builder::Module; our @ISA = qw(Test::Builder::Module); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test/Simple.pm new/Test-Simple-1.302135/lib/Test/Simple.pm --- old/Test-Simple-1.302133/lib/Test/Simple.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test/Simple.pm 2018-03-30 07:53:02.000000000 +0200 @@ -4,7 +4,7 @@ use strict; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; use Test::Builder::Module; our @ISA = qw(Test::Builder::Module); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test/Tester/Capture.pm new/Test-Simple-1.302135/lib/Test/Tester/Capture.pm --- old/Test-Simple-1.302133/lib/Test/Tester/Capture.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test/Tester/Capture.pm 2018-03-30 07:53:02.000000000 +0200 @@ -2,7 +2,7 @@ package Test::Tester::Capture; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; use Test::Builder; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test/Tester/CaptureRunner.pm new/Test-Simple-1.302135/lib/Test/Tester/CaptureRunner.pm --- old/Test-Simple-1.302133/lib/Test/Tester/CaptureRunner.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test/Tester/CaptureRunner.pm 2018-03-30 07:53:02.000000000 +0200 @@ -3,7 +3,7 @@ package Test::Tester::CaptureRunner; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; use Test::Tester::Capture; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test/Tester/Delegate.pm new/Test-Simple-1.302135/lib/Test/Tester/Delegate.pm --- old/Test-Simple-1.302133/lib/Test/Tester/Delegate.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test/Tester/Delegate.pm 2018-03-30 07:53:02.000000000 +0200 @@ -3,7 +3,7 @@ package Test::Tester::Delegate; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; use Scalar::Util(); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test/Tester.pm new/Test-Simple-1.302135/lib/Test/Tester.pm --- old/Test-Simple-1.302133/lib/Test/Tester.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test/Tester.pm 2018-03-30 07:53:02.000000000 +0200 @@ -18,7 +18,7 @@ use vars qw( @ISA @EXPORT ); -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; @EXPORT = qw( run_tests check_tests check_test cmp_results show_space ); @ISA = qw( Exporter ); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test/use/ok.pm new/Test-Simple-1.302135/lib/Test/use/ok.pm --- old/Test-Simple-1.302133/lib/Test/use/ok.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test/use/ok.pm 2018-03-30 07:53:02.000000000 +0200 @@ -1,7 +1,7 @@ package Test::use::ok; use 5.005; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; __END__ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test2/API/Breakage.pm new/Test-Simple-1.302135/lib/Test2/API/Breakage.pm --- old/Test-Simple-1.302133/lib/Test2/API/Breakage.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test2/API/Breakage.pm 2018-03-30 07:53:02.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; use Test2::Util qw/pkg_to_file/; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test2/API/Context.pm new/Test-Simple-1.302135/lib/Test2/API/Context.pm --- old/Test-Simple-1.302133/lib/Test2/API/Context.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test2/API/Context.pm 2018-03-30 07:53:02.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; use Carp qw/confess croak/; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test2/API/Instance.pm new/Test-Simple-1.302135/lib/Test2/API/Instance.pm --- old/Test-Simple-1.302133/lib/Test2/API/Instance.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test2/API/Instance.pm 2018-03-30 07:53:02.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; our @CARP_NOT = qw/Test2::API Test2::API::Instance Test2::IPC::Driver Test2::Formatter/; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test2/API/Stack.pm new/Test-Simple-1.302135/lib/Test2/API/Stack.pm --- old/Test-Simple-1.302133/lib/Test2/API/Stack.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test2/API/Stack.pm 2018-03-30 07:53:02.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; use Test2::Hub(); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test2/API.pm new/Test-Simple-1.302135/lib/Test2/API.pm --- old/Test-Simple-1.302133/lib/Test2/API.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test2/API.pm 2018-03-30 07:53:02.000000000 +0200 @@ -9,7 +9,7 @@ $ENV{TEST2_ACTIVE} = 1; } -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; my $INST; @@ -70,7 +70,7 @@ use Carp qw/carp croak confess/; use Scalar::Util qw/blessed weaken/; -use Test2::Util qw/get_tid clone_io pkg_to_file/; +use Test2::Util qw/get_tid clone_io pkg_to_file gen_uid/; our @EXPORT_OK = qw{ context release @@ -289,7 +289,6 @@ }; my $UUID_VIA = _add_uuid_via_ref(); -my $CID = 1; sub context { # We need to grab these before anything else to ensure they are not # changed. @@ -369,7 +368,7 @@ frame => [$pkg, $file, $line, $sub], pid => $$, tid => get_tid(), - cid => 'C' . $CID++, + cid => gen_uid(), hid => $hid, nested => $hub->{nested}, buffered => $hub->{buffered}, diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test2/Event/Bail.pm new/Test-Simple-1.302135/lib/Test2/Event/Bail.pm --- old/Test-Simple-1.302133/lib/Test2/Event/Bail.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test2/Event/Bail.pm 2018-03-30 07:53:02.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test2/Event/Diag.pm new/Test-Simple-1.302135/lib/Test2/Event/Diag.pm --- old/Test-Simple-1.302133/lib/Test2/Event/Diag.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test2/Event/Diag.pm 2018-03-30 07:53:02.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test2/Event/Encoding.pm new/Test-Simple-1.302135/lib/Test2/Event/Encoding.pm --- old/Test-Simple-1.302133/lib/Test2/Event/Encoding.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test2/Event/Encoding.pm 2018-03-30 07:53:02.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; use Carp qw/croak/; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test2/Event/Exception.pm new/Test-Simple-1.302135/lib/Test2/Event/Exception.pm --- old/Test-Simple-1.302133/lib/Test2/Event/Exception.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test2/Event/Exception.pm 2018-03-30 07:53:02.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test2/Event/Fail.pm new/Test-Simple-1.302135/lib/Test2/Event/Fail.pm --- old/Test-Simple-1.302133/lib/Test2/Event/Fail.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test2/Event/Fail.pm 2018-03-30 07:53:02.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; use Test2::EventFacet::Info; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test2/Event/Generic.pm new/Test-Simple-1.302135/lib/Test2/Event/Generic.pm --- old/Test-Simple-1.302133/lib/Test2/Event/Generic.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test2/Event/Generic.pm 2018-03-30 07:53:02.000000000 +0200 @@ -5,7 +5,7 @@ use Carp qw/croak/; use Scalar::Util qw/reftype/; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) } use Test2::Util::HashBase; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test2/Event/Note.pm new/Test-Simple-1.302135/lib/Test2/Event/Note.pm --- old/Test-Simple-1.302133/lib/Test2/Event/Note.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test2/Event/Note.pm 2018-03-30 07:53:02.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test2/Event/Ok.pm new/Test-Simple-1.302135/lib/Test2/Event/Ok.pm --- old/Test-Simple-1.302133/lib/Test2/Event/Ok.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test2/Event/Ok.pm 2018-03-30 07:53:02.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test2/Event/Pass.pm new/Test-Simple-1.302135/lib/Test2/Event/Pass.pm --- old/Test-Simple-1.302133/lib/Test2/Event/Pass.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test2/Event/Pass.pm 2018-03-30 07:53:02.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; use Test2::EventFacet::Info; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test2/Event/Plan.pm new/Test-Simple-1.302135/lib/Test2/Event/Plan.pm --- old/Test-Simple-1.302133/lib/Test2/Event/Plan.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test2/Event/Plan.pm 2018-03-30 07:53:02.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test2/Event/Skip.pm new/Test-Simple-1.302135/lib/Test2/Event/Skip.pm --- old/Test-Simple-1.302133/lib/Test2/Event/Skip.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test2/Event/Skip.pm 2018-03-30 07:53:02.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; BEGIN { require Test2::Event::Ok; our @ISA = qw(Test2::Event::Ok) } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test2/Event/Subtest.pm new/Test-Simple-1.302135/lib/Test2/Event/Subtest.pm --- old/Test-Simple-1.302133/lib/Test2/Event/Subtest.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test2/Event/Subtest.pm 2018-03-30 07:53:02.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; BEGIN { require Test2::Event::Ok; our @ISA = qw(Test2::Event::Ok) } use Test2::Util::HashBase qw{subevents buffered subtest_id subtest_uuid}; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test2/Event/TAP/Version.pm new/Test-Simple-1.302135/lib/Test2/Event/TAP/Version.pm --- old/Test-Simple-1.302133/lib/Test2/Event/TAP/Version.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test2/Event/TAP/Version.pm 2018-03-30 07:53:02.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; use Carp qw/croak/; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test2/Event/V2.pm new/Test-Simple-1.302135/lib/Test2/Event/V2.pm --- old/Test-Simple-1.302133/lib/Test2/Event/V2.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test2/Event/V2.pm 2018-03-30 07:53:02.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; use Scalar::Util qw/reftype/; use Carp qw/croak/; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test2/Event/Waiting.pm new/Test-Simple-1.302135/lib/Test2/Event/Waiting.pm --- old/Test-Simple-1.302133/lib/Test2/Event/Waiting.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test2/Event/Waiting.pm 2018-03-30 07:53:02.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test2/Event.pm new/Test-Simple-1.302135/lib/Test2/Event.pm --- old/Test-Simple-1.302133/lib/Test2/Event.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test2/Event.pm 2018-03-30 07:53:02.000000000 +0200 @@ -2,14 +2,14 @@ use strict; use warnings; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; use Scalar::Util qw/blessed reftype/; use Carp qw/croak/; -use Test2::Util::HashBase qw/trace -amnesty uuid -hubs/; +use Test2::Util::HashBase qw/trace -amnesty uuid -_eid -hubs/; use Test2::Util::ExternalMeta qw/meta get_meta set_meta delete_meta/; -use Test2::Util qw(pkg_to_file); +use Test2::Util qw/pkg_to_file gen_uid/; use Test2::EventFacet::About(); use Test2::EventFacet::Amnesty(); @@ -120,6 +120,8 @@ } } +sub eid { $_[0]->{+_EID} ||= gen_uid() } + sub common_facet_data { my $self = shift; @@ -130,6 +132,8 @@ $out{about}->{uuid} = $uuid; } + $out{about}->{eid} = $self->{+_EID} || $self->eid; + if (my $trace = $self->trace) { $out{trace} = { %$trace }; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test2/EventFacet/About.pm new/Test-Simple-1.302135/lib/Test2/EventFacet/About.pm --- old/Test-Simple-1.302133/lib/Test2/EventFacet/About.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test2/EventFacet/About.pm 2018-03-30 07:53:02.000000000 +0200 @@ -2,10 +2,10 @@ use strict; use warnings; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) } -use Test2::Util::HashBase qw{ -package -no_display -uuid }; +use Test2::Util::HashBase qw{ -package -no_display -uuid -eid }; 1; @@ -51,6 +51,12 @@ Will be set to a uuid if uuid tagging was enabled. +=item $uuid = $about->{eid} + +=item $uuid = $about->eid() + +A unique (for the test job) identifier for the event. + =back =head1 SOURCE diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test2/EventFacet/Amnesty.pm new/Test-Simple-1.302135/lib/Test2/EventFacet/Amnesty.pm --- old/Test-Simple-1.302133/lib/Test2/EventFacet/Amnesty.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test2/EventFacet/Amnesty.pm 2018-03-30 07:53:02.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; sub is_list { 1 } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test2/EventFacet/Assert.pm new/Test-Simple-1.302135/lib/Test2/EventFacet/Assert.pm --- old/Test-Simple-1.302133/lib/Test2/EventFacet/Assert.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test2/EventFacet/Assert.pm 2018-03-30 07:53:02.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) } use Test2::Util::HashBase qw{ -pass -no_debug -number }; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test2/EventFacet/Control.pm new/Test-Simple-1.302135/lib/Test2/EventFacet/Control.pm --- old/Test-Simple-1.302133/lib/Test2/EventFacet/Control.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test2/EventFacet/Control.pm 2018-03-30 07:53:02.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) } use Test2::Util::HashBase qw{ -global -terminate -halt -has_callback -encoding }; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test2/EventFacet/Error.pm new/Test-Simple-1.302135/lib/Test2/EventFacet/Error.pm --- old/Test-Simple-1.302133/lib/Test2/EventFacet/Error.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test2/EventFacet/Error.pm 2018-03-30 07:53:02.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; sub facet_key { 'errors' } sub is_list { 1 } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test2/EventFacet/Hub.pm new/Test-Simple-1.302135/lib/Test2/EventFacet/Hub.pm --- old/Test-Simple-1.302133/lib/Test2/EventFacet/Hub.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test2/EventFacet/Hub.pm 2018-03-30 07:53:02.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; sub is_list { 1 } sub facet_key { 'hubs' } @@ -20,7 +20,7 @@ =head1 NAME -Test2::EventFacet::Hub +Test2::EventFacet::Hub - Facet for the hubs an event passes through. =head1 DESCRIPTION diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test2/EventFacet/Info.pm new/Test-Simple-1.302135/lib/Test2/EventFacet/Info.pm --- old/Test-Simple-1.302133/lib/Test2/EventFacet/Info.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test2/EventFacet/Info.pm 2018-03-30 07:53:02.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; sub is_list { 1 } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test2/EventFacet/Meta.pm new/Test-Simple-1.302135/lib/Test2/EventFacet/Meta.pm --- old/Test-Simple-1.302133/lib/Test2/EventFacet/Meta.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test2/EventFacet/Meta.pm 2018-03-30 07:53:02.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) } use vars qw/$AUTOLOAD/; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test2/EventFacet/Parent.pm new/Test-Simple-1.302135/lib/Test2/EventFacet/Parent.pm --- old/Test-Simple-1.302133/lib/Test2/EventFacet/Parent.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test2/EventFacet/Parent.pm 2018-03-30 07:53:02.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; use Carp qw/confess/; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test2/EventFacet/Plan.pm new/Test-Simple-1.302135/lib/Test2/EventFacet/Plan.pm --- old/Test-Simple-1.302133/lib/Test2/EventFacet/Plan.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test2/EventFacet/Plan.pm 2018-03-30 07:53:02.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) } use Test2::Util::HashBase qw{ -count -skip -none }; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test2/EventFacet/Render.pm new/Test-Simple-1.302135/lib/Test2/EventFacet/Render.pm --- old/Test-Simple-1.302133/lib/Test2/EventFacet/Render.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test2/EventFacet/Render.pm 2018-03-30 07:53:02.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; sub is_list { 1 } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test2/EventFacet/Trace.pm new/Test-Simple-1.302135/lib/Test2/EventFacet/Trace.pm --- old/Test-Simple-1.302133/lib/Test2/EventFacet/Trace.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test2/EventFacet/Trace.pm 2018-03-30 07:53:02.000000000 +0200 @@ -2,11 +2,11 @@ use strict; use warnings; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) } -use Test2::Util qw/get_tid pkg_to_file/; +use Test2::Util qw/get_tid pkg_to_file gen_uid/; use Carp qw/confess/; use Test2::Util::HashBase qw{^frame ^pid ^tid ^cid -hid -nested details -buffered -uuid -huuid}; @@ -24,8 +24,10 @@ $_[0]->{+DETAILS} = delete $_[0]->{detail} if $_[0]->{detail}; - $_[0]->{+PID} = $$ unless defined $_[0]->{+PID}; - $_[0]->{+TID} = get_tid() unless defined $_[0]->{+TID}; + unless (defined($_[0]->{+PID}) || defined($_[0]->{+TID}) || defined($_[0]->{+CID})) { + $_[0]->{+PID} = $$ unless defined $_[0]->{+PID}; + $_[0]->{+TID} = get_tid() unless defined $_[0]->{+TID}; + } } sub snapshot { @@ -239,11 +241,8 @@ =item $sig = trace->signature Get a signature string that identifies this trace. This is used to check if -multiple events are related. - -If UUID's are enabled then a uuid is returned. Otherwise the signature includes -pid, tid, file, line number, and the cid which is C<'C\d+'> for traces created -by a context, or C<'T\d+'> for traces created by C<new()>. +multiple events are related. The signature includes pid, tid, file, line +number, and the cid. =back diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test2/EventFacet.pm new/Test-Simple-1.302135/lib/Test2/EventFacet.pm --- old/Test-Simple-1.302133/lib/Test2/EventFacet.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test2/EventFacet.pm 2018-03-30 07:53:02.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; use Test2::Util::HashBase qw/-details/; use Carp qw/croak/; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test2/Formatter/TAP.pm new/Test-Simple-1.302135/lib/Test2/Formatter/TAP.pm --- old/Test-Simple-1.302133/lib/Test2/Formatter/TAP.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test2/Formatter/TAP.pm 2018-03-30 07:53:02.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; use Test2::Util qw/clone_io/; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test2/Formatter.pm new/Test-Simple-1.302135/lib/Test2/Formatter.pm --- old/Test-Simple-1.302133/lib/Test2/Formatter.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test2/Formatter.pm 2018-03-30 07:53:02.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; my %ADDED; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test2/Hub/Interceptor/Terminator.pm new/Test-Simple-1.302135/lib/Test2/Hub/Interceptor/Terminator.pm --- old/Test-Simple-1.302133/lib/Test2/Hub/Interceptor/Terminator.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test2/Hub/Interceptor/Terminator.pm 2018-03-30 07:53:02.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; 1; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test2/Hub/Interceptor.pm new/Test-Simple-1.302135/lib/Test2/Hub/Interceptor.pm --- old/Test-Simple-1.302133/lib/Test2/Hub/Interceptor.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test2/Hub/Interceptor.pm 2018-03-30 07:53:02.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; use Test2::Hub::Interceptor::Terminator(); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test2/Hub/Subtest.pm new/Test-Simple-1.302135/lib/Test2/Hub/Subtest.pm --- old/Test-Simple-1.302133/lib/Test2/Hub/Subtest.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test2/Hub/Subtest.pm 2018-03-30 07:53:02.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; BEGIN { require Test2::Hub; our @ISA = qw(Test2::Hub) } use Test2::Util::HashBase qw/nested exit_code manual_skip_all/; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test2/Hub.pm new/Test-Simple-1.302135/lib/Test2/Hub.pm --- old/Test-Simple-1.302133/lib/Test2/Hub.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test2/Hub.pm 2018-03-30 07:53:02.000000000 +0200 @@ -2,11 +2,11 @@ use strict; use warnings; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; use Carp qw/carp croak confess/; -use Test2::Util qw/get_tid ipc_separator/; +use Test2::Util qw/get_tid gen_uid/; use Scalar::Util qw/weaken/; use List::Util qw/first/; @@ -38,13 +38,12 @@ my $UUID_VIA; -my $ID_POSTFIX = 1; sub init { my $self = shift; $self->{+PID} = $$; $self->{+TID} = get_tid(); - $self->{+HID} = join ipc_separator, $self->{+PID}, $self->{+TID}, $ID_POSTFIX++; + $self->{+HID} = gen_uid(); $UUID_VIA ||= Test2::API::_add_uuid_via_ref(); $self->{+UUID} = ${$UUID_VIA}->('hub') if $$UUID_VIA; @@ -75,7 +74,7 @@ $self->{+PID} = $$; $self->{+TID} = get_tid(); - $self->{+HID} = join ipc_separator, $self->{+PID}, $self->{+TID}, $ID_POSTFIX++; + $self->{+HID} = gen_uid(); if (my $ipc = $self->{+IPC}) { $ipc->add_hub($self->{+HID}); @@ -278,6 +277,8 @@ my $self = shift; my ($e) = @_; + $e->eid; + $e->add_hub( { details => ref($self), diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test2/IPC/Driver/Files.pm new/Test-Simple-1.302135/lib/Test2/IPC/Driver/Files.pm --- old/Test-Simple-1.302133/lib/Test2/IPC/Driver/Files.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test2/IPC/Driver/Files.pm 2018-03-30 07:53:02.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; BEGIN { require Test2::IPC::Driver; our @ISA = qw(Test2::IPC::Driver) } @@ -270,7 +270,7 @@ my $ready = substr($file, -6, 6) eq '.ready' || 0 and substr($file, -6, 6, ""); my @parts = split ipc_separator, $file; - my ($global, $hid) = $parts[0] eq 'GLOBAL' ? (1, shift @parts) : (0, join ipc_separator, splice(@parts, 0, 3)); + my ($global, $hid) = $parts[0] eq 'GLOBAL' ? (1, shift @parts) : (0, join ipc_separator, splice(@parts, 0, 4)); my ($pid, $tid, $eid) = splice(@parts, 0, 3); my $type = join '::' => @parts; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test2/IPC/Driver.pm new/Test-Simple-1.302135/lib/Test2/IPC/Driver.pm --- old/Test-Simple-1.302133/lib/Test2/IPC/Driver.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test2/IPC/Driver.pm 2018-03-30 07:53:02.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; use Carp qw/confess/; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test2/IPC.pm new/Test-Simple-1.302135/lib/Test2/IPC.pm --- old/Test-Simple-1.302133/lib/Test2/IPC.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test2/IPC.pm 2018-03-30 07:53:02.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; use Test2::API::Instance; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test2/Tools/Tiny.pm new/Test-Simple-1.302135/lib/Test2/Tools/Tiny.pm --- old/Test-Simple-1.302133/lib/Test2/Tools/Tiny.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test2/Tools/Tiny.pm 2018-03-30 07:53:02.000000000 +0200 @@ -16,7 +16,7 @@ use Test2::Hub::Interceptor(); use Test2::Hub::Interceptor::Terminator(); -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; BEGIN { require Exporter; our @ISA = qw(Exporter) } our @EXPORT = qw{ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test2/Util/ExternalMeta.pm new/Test-Simple-1.302135/lib/Test2/Util/ExternalMeta.pm --- old/Test-Simple-1.302133/lib/Test2/Util/ExternalMeta.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test2/Util/ExternalMeta.pm 2018-03-30 07:53:02.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; use Carp qw/croak/; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test2/Util/Facets2Legacy.pm new/Test-Simple-1.302135/lib/Test2/Util/Facets2Legacy.pm --- old/Test-Simple-1.302133/lib/Test2/Util/Facets2Legacy.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test2/Util/Facets2Legacy.pm 2018-03-30 07:53:02.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; use Carp qw/croak confess/; use Scalar::Util qw/blessed/; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test2/Util/HashBase.pm new/Test-Simple-1.302135/lib/Test2/Util/HashBase.pm --- old/Test-Simple-1.302133/lib/Test2/Util/HashBase.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test2/Util/HashBase.pm 2018-03-30 07:53:02.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; ################################################################# # # diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test2/Util/Trace.pm new/Test-Simple-1.302135/lib/Test2/Util/Trace.pm --- old/Test-Simple-1.302133/lib/Test2/Util/Trace.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test2/Util/Trace.pm 2018-03-30 07:53:02.000000000 +0200 @@ -2,7 +2,7 @@ require Test2::EventFacet::Trace; @ISA = ('Test2::EventFacet::Trace'); -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; 1; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test2/Util.pm new/Test-Simple-1.302135/lib/Test2/Util.pm --- old/Test-Simple-1.302133/lib/Test2/Util.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test2/Util.pm 2018-03-30 07:53:02.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; use POSIX(); use Config qw/%Config/; @@ -29,6 +29,8 @@ ipc_separator + gen_uid + do_rename do_unlink try_sig_mask @@ -157,6 +159,9 @@ sub ipc_separator() { "~" } +my $UID = 1; +sub gen_uid() { join ipc_separator() => ($$, get_tid(), time, $UID++) } + sub _check_for_sig_sys { my $sig_list = shift; return $sig_list =~ m/\bSYS\b/; @@ -329,6 +334,30 @@ Convert a package name to a filename. +=item $string = ipc_separator() + +Get the IPC separator. Currently this is always the string C<'~'>. + +=item $string = gen_uid() + +Generate a unique id (NOT A UUID). This will typically be the process id, the +thread id, the time, and an incrementing integer all joined with the +C<ipc_separator()>. + +These ID's are unique enough for most purposes. For identical ids to be +generated you must have 2 processes with the same PID generate IDs at the same +time with the same current state of the incrementing integer. This is a +perfectly reasonable thing to expect to happen across multiple machines, but is +quite unlikely to happen on one machine. + +This can fail to be unique if a process generates an id, calls exec, and does +it again after the exec and it all happens in less than a second. It can also +happen if the systems process id's cycle in less than a second allowing 2 +different programs that use this generator to run with the same PID in less +than a second. Both these cases are sufficiently unlikely. If you need +universally unique ids, or ids that are unique in these conditions, look at +L<Data::UUID>. + =item ($ok, $err) = do_rename($old_name, $new_name) Rename a file, this wraps C<rename()> in a way that makes it more reliable diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/Test2.pm new/Test-Simple-1.302135/lib/Test2.pm --- old/Test-Simple-1.302133/lib/Test2.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/Test2.pm 2018-03-30 07:53:02.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; 1; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/lib/ok.pm new/Test-Simple-1.302135/lib/ok.pm --- old/Test-Simple-1.302133/lib/ok.pm 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/lib/ok.pm 2018-03-30 07:53:02.000000000 +0200 @@ -1,5 +1,5 @@ package ok; -our $VERSION = '1.302133'; +our $VERSION = '1.302135'; use strict; use Test::More (); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/t/Test2/behavior/trace_signature.t new/Test-Simple-1.302135/t/Test2/behavior/trace_signature.t --- old/Test-Simple-1.302133/t/Test2/behavior/trace_signature.t 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/t/Test2/behavior/trace_signature.t 2018-03-30 07:53:02.000000000 +0200 @@ -24,9 +24,10 @@ is($events->[$_]->trace->signature, $sigfail, "Diags share failed ok's signature") for 2 .. $#$events; -like($sigpass, qr/^C\d+:$$:\Q${ \get_tid() }:${ \__FILE__ }:$line\E$/, "signature is sane"); +like($sigpass, qr/$$~${ \get_tid() }~\d+~\d+:$$:\Q${ \get_tid() }:${ \__FILE__ }:$line\E$/, "signature is sane"); my $trace = Test2::EventFacet::Trace->new(frame => ['main', 'foo.t', 42, 'xxx']); +delete $trace->{cid}; is($trace->signature, undef, "No signature without a cid"); is($events->[0]->related($events->[1]), 0, "event 0 is not related to event 1"); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/t/Test2/modules/Event/Bail.t new/Test-Simple-1.302135/t/Test2/modules/Event/Bail.t --- old/Test-Simple-1.302133/t/Test2/modules/Event/Bail.t 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/t/Test2/modules/Event/Bail.t 2018-03-30 07:53:02.000000000 +0200 @@ -25,6 +25,7 @@ { about => { package => 'Test2::Event::Bail', + eid => $bail->eid, }, control => { global => 1, @@ -51,6 +52,7 @@ { about => { package => 'Test2::Event::Bail', + eid => $bail->eid, }, control => { global => 1, diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/t/Test2/modules/Event/Encoding.t new/Test-Simple-1.302135/t/Test2/modules/Event/Encoding.t --- old/Test-Simple-1.302133/t/Test2/modules/Event/Encoding.t 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/t/Test2/modules/Event/Encoding.t 2018-03-30 07:53:02.000000000 +0200 @@ -19,7 +19,11 @@ is_deeply( $one->facet_data, { - about => { package => $CLASS, details => "Encoding set to utf8" }, + about => { + package => $CLASS, + details => "Encoding set to utf8", + eid => $one->eid, + }, control => { encoding => 'utf8' }, }, "Got facet data" diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/t/Test2/modules/Event/Fail.t new/Test-Simple-1.302135/t/Test2/modules/Event/Fail.t --- old/Test-Simple-1.302133/t/Test2/modules/Event/Fail.t 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/t/Test2/modules/Event/Fail.t 2018-03-30 07:53:02.000000000 +0200 @@ -27,7 +27,7 @@ is_deeply( $one->facet_data, { - about => {package => $CLASS, details => 'fail'}, + about => {package => $CLASS, details => 'fail', eid => $one->eid}, assert => {pass => 0, details => 'no soup for you'}, amnesty => [{tag => 'blah', details => 'blah'}], info => [{tag => 'xxx', details => 'yyy'}], diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/t/Test2/modules/Event/Generic.t new/Test-Simple-1.302135/t/Test2/modules/Event/Generic.t --- old/Test-Simple-1.302133/t/Test2/modules/Event/Generic.t 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/t/Test2/modules/Event/Generic.t 2018-03-30 07:53:02.000000000 +0200 @@ -27,18 +27,20 @@ increments_count => 0, diagnostics => 0, no_display => 0, + _eid => $e->eid, hubs => [ { 'buffered' => 0, 'details' => 'Test2::Hub::Interceptor', - 'hid' => "$$~0~2", + 'hid' => $e->hubs->[0]->{hid}, 'ipc' => 0, 'nested' => 0, 'pid' => $$, 'tid' => 0, - 'uuid' => undef + $e->hubs->[0]->{uuid} ? (uuid => $e->hubs->[0]->{uuid}) : (uuid => undef), } ], + $e->uuid ? (uuid => $e->uuid) : (), }, "Defaults" ); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/t/Test2/modules/Event/Pass.t new/Test-Simple-1.302135/t/Test2/modules/Event/Pass.t --- old/Test-Simple-1.302133/t/Test2/modules/Event/Pass.t 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/t/Test2/modules/Event/Pass.t 2018-03-30 07:53:02.000000000 +0200 @@ -26,7 +26,7 @@ $one->facet_data, { trace => {frame => ['foo', 'foo.pl', 42]}, - about => {package => $CLASS, details => 'pass'}, + about => {package => $CLASS, details => 'pass', eid => $one->eid}, assert => {pass => 1, details => 'soup for you'}, amnesty => [{tag => 'blah', details => 'blah'}], info => [{tag => 'xxx', details => 'yyy'}], diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/t/Test2/modules/Event/Subtest.t new/Test-Simple-1.302135/t/Test2/modules/Event/Subtest.t --- old/Test-Simple-1.302133/t/Test2/modules/Event/Subtest.t 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/t/Test2/modules/Event/Subtest.t 2018-03-30 07:53:02.000000000 +0200 @@ -42,7 +42,8 @@ { about => { details => 'pass', - package => 'Test2::Event::Pass' + package => 'Test2::Event::Pass', + eid => $one->subevents->[0]->eid, }, assert => { details => 'xxx', diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/t/Test2/modules/Event/TAP/Version.t new/Test-Simple-1.302135/t/Test2/modules/Event/TAP/Version.t --- old/Test-Simple-1.302133/t/Test2/modules/Event/TAP/Version.t 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/t/Test2/modules/Event/TAP/Version.t 2018-03-30 07:53:02.000000000 +0200 @@ -19,7 +19,7 @@ is_deeply( $one->facet_data, { - about => { package => $CLASS, details => "TAP version 13"}, + about => { package => $CLASS, details => "TAP version 13", eid => $one->eid}, info => [{tag => 'INFO', debug => 0, details => "TAP version 13"}], }, "Got facet data" diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/t/Test2/modules/Event.t new/Test-Simple-1.302135/t/Test2/modules/Event.t --- old/Test-Simple-1.302133/t/Test2/modules/Event.t 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/t/Test2/modules/Event.t 2018-03-30 07:53:02.000000000 +0200 @@ -82,7 +82,8 @@ about => { package => 'Test2::Event::Generic', details => 'Test2::Event::Generic', - no_display => undef + eid => $e->eid, + no_display => undef, }, control => { has_callback => 0, @@ -90,7 +91,7 @@ global => 0 }, }, - "Facet data has control with onyl false values, and an about" + "Facet data has control with only false values, and an about" ); $e->set_trace(Test2::EventFacet::Trace->new(frame => ['foo', 'foo.t', 42])); @@ -100,7 +101,8 @@ about => { package => 'Test2::Event::Generic', details => 'Test2::Event::Generic', - no_display => undef + eid => $e->eid, + no_display => undef, }, control => { has_callback => 0, @@ -123,6 +125,7 @@ about => { package => 'Test2::Event::Generic', details => 'Test2::Event::Generic', + eid => $e->eid, no_display => undef }, control => { @@ -153,6 +156,7 @@ about => { package => 'Test2::Event::Generic', details => 'Test2::Event::Generic', + eid => $e->eid, no_display => undef }, control => { @@ -181,6 +185,7 @@ about => { package => 'Test2::Event::Generic', details => 'Test2::Event::Generic', + eid => $e->eid, no_display => undef }, control => { @@ -211,6 +216,7 @@ about => { package => 'Test2::Event::Generic', details => 'Test2::Event::Generic', + eid => $e->eid, no_display => undef }, control => { @@ -244,6 +250,7 @@ about => { package => 'Test2::Event::Generic', details => 'Test2::Event::Generic', + eid => $e->eid, no_display => undef }, control => { @@ -273,6 +280,7 @@ about => { package => 'Test2::Event::Generic', details => 'Test2::Event::Generic', + eid => $e->eid, no_display => undef }, control => { @@ -303,6 +311,7 @@ about => { package => 'Test2::Event::Generic', details => 'Test2::Event::Generic', + eid => $e->eid, no_display => undef }, control => { @@ -334,6 +343,7 @@ about => { package => 'Test2::Event::Generic', details => 'Test2::Event::Generic', + eid => $e->eid, no_display => undef }, control => { @@ -364,6 +374,7 @@ about => { package => 'Test2::Event::Generic', details => 'Test2::Event::Generic', + eid => $e->eid, no_display => undef }, control => { @@ -395,6 +406,7 @@ about => { package => 'Test2::Event::Generic', details => 'Test2::Event::Generic', + eid => $e->eid, no_display => undef }, control => { @@ -431,6 +443,7 @@ about => { package => 'Test2::Event::Generic', details => 'Test2::Event::Generic', + eid => $e->eid, no_display => 1, }, control => { @@ -449,6 +462,7 @@ about => { package => 'Test2::Event::Generic', details => 'Test2::Event::Generic', + eid => $e->eid, no_display => undef, }, control => { @@ -472,6 +486,7 @@ about => { package => 'Test2::Event::Generic', details => 'foo bar baz', + eid => $e->eid, no_display => undef, }, control => { @@ -577,6 +592,7 @@ { about => { package => 'Test2::Event::Generic', + eid => $e->eid, }, }, "Facet data has an about" @@ -588,6 +604,7 @@ { about => { package => 'Test2::Event::Generic', + eid => $e->eid, }, trace => { frame => ['foo', 'foo.t', 42], @@ -604,6 +621,7 @@ { about => { package => 'Test2::Event::Generic', + eid => $e->eid, }, trace => { frame => ['foo', 'foo.t', 42], @@ -622,6 +640,7 @@ { about => { package => 'Test2::Event::Generic', + eid => $e->eid, }, trace => { frame => ['foo', 'foo.t', 42], diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/t/Test2/modules/IPC/Driver/Files.t new/Test-Simple-1.302135/t/Test2/modules/IPC/Driver/Files.t --- old/Test-Simple-1.302133/t/Test2/modules/IPC/Driver/Files.t 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/t/Test2/modules/IPC/Driver/Files.t 2018-03-30 07:53:02.000000000 +0200 @@ -46,7 +46,7 @@ is($ipc->pid, $$, "stored pid"); is($ipc->tid, get_tid(), "stored the tid"); -my $hid = join ipc_separator, qw'12345 1 1'; +my $hid = join ipc_separator, qw'12345 1 1 1'; $ipc->add_hub($hid); my $hubfile = File::Spec->catfile($ipc->tempdir, "HUB" . ipc_separator . $hid); @@ -403,49 +403,49 @@ ); is_deeply( - $ipc->parse_event_filename(join ipc_separator, qw'1 1 1 123 456 789 Event Type Foo.ready.complete'), + $ipc->parse_event_filename(join ipc_separator, qw'1 1 1 1 123 456 789 Event Type Foo.ready.complete'), { ready => 1, complete => 1, global => 0, type => "Event::Type::Foo", - hid => "1${sep}1${sep}1", + hid => "1${sep}1${sep}1${sep}1", pid => "123", tid => "456", eid => "789", - file => join ipc_separator, qw'1 1 1 123 456 789 Event Type Foo', + file => join ipc_separator, qw'1 1 1 1 123 456 789 Event Type Foo', }, "Parsed event complete" ); is_deeply( - $ipc->parse_event_filename(join ipc_separator, qw'1 2 3 123 456 789 Event Type Foo.ready'), + $ipc->parse_event_filename(join ipc_separator, qw'1 2 3 4 123 456 789 Event Type Foo.ready'), { ready => 1, complete => 0, global => 0, type => "Event::Type::Foo", - hid => "1${sep}2${sep}3", + hid => "1${sep}2${sep}3${sep}4", pid => "123", tid => "456", eid => "789", - file => join ipc_separator, qw'1 2 3 123 456 789 Event Type Foo', + file => join ipc_separator, qw'1 2 3 4 123 456 789 Event Type Foo', }, "Parsed event ready" ); is_deeply( - $ipc->parse_event_filename(join ipc_separator, qw'3 2 11 123 456 789 Event'), + $ipc->parse_event_filename(join ipc_separator, qw'3 2 11 12 123 456 789 Event'), { ready => 0, complete => 0, global => 0, type => "Event", - hid => "3${sep}2${sep}11", + hid => "3${sep}2${sep}11${sep}12", pid => "123", tid => "456", eid => "789", - file => join ipc_separator, qw'3 2 11 123 456 789 Event', + file => join ipc_separator, qw'3 2 11 12 123 456 789 Event', }, "Parsed event not ready" ); @@ -454,7 +454,7 @@ { my $ipc = Test2::IPC::Driver::Files->new(); - my $hid = join ipc_separator, qw"1 1 1"; + my $hid = join ipc_separator, qw"1 1 1 1"; is_deeply( $ipc->should_read_event($hid, join ipc_separator, qw"GLOBAL 123 456 789 Event Type Foo.ready.complete") ? 1 : 0, diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/t/Test2/modules/Util/Facets2Legacy.t new/Test-Simple-1.302135/t/Test2/modules/Util/Facets2Legacy.t --- old/Test-Simple-1.302133/t/Test2/modules/Util/Facets2Legacy.t 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/t/Test2/modules/Util/Facets2Legacy.t 2018-03-30 07:53:02.000000000 +0200 @@ -17,7 +17,7 @@ is_deeply( _get_facet_data($pass), { - about => {package => 'Test2::Event::Pass', details => 'pass'}, + about => {package => 'Test2::Event::Pass', details => 'pass', eid => $pass->eid}, assert => {pass => 1, details => 'xxx'}, }, "Got facet data from event" diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/t/Test2/modules/Util.t new/Test-Simple-1.302135/t/Test2/modules/Util.t --- old/Test-Simple-1.302133/t/Test2/modules/Util.t 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/t/Test2/modules/Util.t 2018-03-30 07:53:02.000000000 +0200 @@ -1,6 +1,14 @@ use strict; use warnings; +our $TIME; +BEGIN { + *CORE::GLOBAL::time = sub() { + return CORE::time() unless defined $TIME; + return $TIME; + }; +} + use Config qw/%Config/; use Test2::Tools::Tiny; @@ -15,6 +23,9 @@ CAN_THREAD CAN_REALLY_FORK + ipc_separator + gen_uid + CAN_SIGSYS IS_WIN32 @@ -84,5 +95,17 @@ is($out, "Test\n", "wrote to the scalar handle"); +is(ipc_separator(), '~', "Got ipc_separator"); + +{ + local $TIME = time; + my $id1 = gen_uid(); + my $id2 = gen_uid(); + + like($id1, qr/^\Q$$~0~$TIME~\E\d+$/, "Got a UID ($id1)"); + my ($inc) = ($id1 =~ m/(\d+)$/g); + $inc++; + is($id2, "$$~0~$TIME~$inc", "Next id is next in sequence ($id2)"); +} done_testing; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Simple-1.302133/xt/author/pod-spell.t new/Test-Simple-1.302135/xt/author/pod-spell.t --- old/Test-Simple-1.302133/xt/author/pod-spell.t 2018-03-11 20:48:38.000000000 +0100 +++ new/Test-Simple-1.302135/xt/author/pod-spell.t 2018-03-30 07:53:02.000000000 +0200 @@ -64,6 +64,7 @@ renderers ## computerese +incrementing blackbox BUF codeblock
