Upgrade Test::Simple from vesion 1.302133 to 1.302136
authorSteve Hay <steve.m.hay@googlemail.com>
Tue, 3 Jul 2018 12:47:10 +0000 (13:47 +0100)
committerSteve Hay <steve.m.hay@googlemail.com>
Tue, 3 Jul 2018 16:29:35 +0000 (17:29 +0100)
77 files changed:
Porting/Maintainers.pl
cpan/Test-Simple/lib/Test/Builder.pm
cpan/Test-Simple/lib/Test/Builder/Formatter.pm
cpan/Test-Simple/lib/Test/Builder/Module.pm
cpan/Test-Simple/lib/Test/Builder/Tester.pm
cpan/Test-Simple/lib/Test/Builder/Tester/Color.pm
cpan/Test-Simple/lib/Test/Builder/TodoDiag.pm
cpan/Test-Simple/lib/Test/More.pm
cpan/Test-Simple/lib/Test/Simple.pm
cpan/Test-Simple/lib/Test/Tester.pm
cpan/Test-Simple/lib/Test/Tester/Capture.pm
cpan/Test-Simple/lib/Test/Tester/CaptureRunner.pm
cpan/Test-Simple/lib/Test/Tester/Delegate.pm
cpan/Test-Simple/lib/Test/use/ok.pm
cpan/Test-Simple/lib/Test2.pm
cpan/Test-Simple/lib/Test2/API.pm
cpan/Test-Simple/lib/Test2/API/Breakage.pm
cpan/Test-Simple/lib/Test2/API/Context.pm
cpan/Test-Simple/lib/Test2/API/Instance.pm
cpan/Test-Simple/lib/Test2/API/Stack.pm
cpan/Test-Simple/lib/Test2/Event.pm
cpan/Test-Simple/lib/Test2/Event/Bail.pm
cpan/Test-Simple/lib/Test2/Event/Diag.pm
cpan/Test-Simple/lib/Test2/Event/Encoding.pm
cpan/Test-Simple/lib/Test2/Event/Exception.pm
cpan/Test-Simple/lib/Test2/Event/Fail.pm
cpan/Test-Simple/lib/Test2/Event/Generic.pm
cpan/Test-Simple/lib/Test2/Event/Note.pm
cpan/Test-Simple/lib/Test2/Event/Ok.pm
cpan/Test-Simple/lib/Test2/Event/Pass.pm
cpan/Test-Simple/lib/Test2/Event/Plan.pm
cpan/Test-Simple/lib/Test2/Event/Skip.pm
cpan/Test-Simple/lib/Test2/Event/Subtest.pm
cpan/Test-Simple/lib/Test2/Event/TAP/Version.pm
cpan/Test-Simple/lib/Test2/Event/V2.pm
cpan/Test-Simple/lib/Test2/Event/Waiting.pm
cpan/Test-Simple/lib/Test2/EventFacet.pm
cpan/Test-Simple/lib/Test2/EventFacet/About.pm
cpan/Test-Simple/lib/Test2/EventFacet/Amnesty.pm
cpan/Test-Simple/lib/Test2/EventFacet/Assert.pm
cpan/Test-Simple/lib/Test2/EventFacet/Control.pm
cpan/Test-Simple/lib/Test2/EventFacet/Error.pm
cpan/Test-Simple/lib/Test2/EventFacet/Hub.pm
cpan/Test-Simple/lib/Test2/EventFacet/Info.pm
cpan/Test-Simple/lib/Test2/EventFacet/Meta.pm
cpan/Test-Simple/lib/Test2/EventFacet/Parent.pm
cpan/Test-Simple/lib/Test2/EventFacet/Plan.pm
cpan/Test-Simple/lib/Test2/EventFacet/Render.pm
cpan/Test-Simple/lib/Test2/EventFacet/Trace.pm
cpan/Test-Simple/lib/Test2/Formatter.pm
cpan/Test-Simple/lib/Test2/Formatter/TAP.pm
cpan/Test-Simple/lib/Test2/Hub.pm
cpan/Test-Simple/lib/Test2/Hub/Interceptor.pm
cpan/Test-Simple/lib/Test2/Hub/Interceptor/Terminator.pm
cpan/Test-Simple/lib/Test2/Hub/Subtest.pm
cpan/Test-Simple/lib/Test2/IPC.pm
cpan/Test-Simple/lib/Test2/IPC/Driver.pm
cpan/Test-Simple/lib/Test2/IPC/Driver/Files.pm
cpan/Test-Simple/lib/Test2/Tools/Tiny.pm
cpan/Test-Simple/lib/Test2/Util.pm
cpan/Test-Simple/lib/Test2/Util/ExternalMeta.pm
cpan/Test-Simple/lib/Test2/Util/Facets2Legacy.pm
cpan/Test-Simple/lib/Test2/Util/HashBase.pm
cpan/Test-Simple/lib/Test2/Util/Trace.pm
cpan/Test-Simple/lib/ok.pm
cpan/Test-Simple/t/Test2/behavior/trace_signature.t
cpan/Test-Simple/t/Test2/modules/Event.t
cpan/Test-Simple/t/Test2/modules/Event/Bail.t
cpan/Test-Simple/t/Test2/modules/Event/Encoding.t
cpan/Test-Simple/t/Test2/modules/Event/Fail.t
cpan/Test-Simple/t/Test2/modules/Event/Generic.t
cpan/Test-Simple/t/Test2/modules/Event/Pass.t
cpan/Test-Simple/t/Test2/modules/Event/Subtest.t
cpan/Test-Simple/t/Test2/modules/Event/TAP/Version.t
cpan/Test-Simple/t/Test2/modules/IPC/Driver/Files.t
cpan/Test-Simple/t/Test2/modules/Util.t
cpan/Test-Simple/t/Test2/modules/Util/Facets2Legacy.t

index 4c89568..60f9976 100755 (executable)
@@ -1083,7 +1083,7 @@ use File::Glob qw(:case);
     },
 
     'Test::Simple' => {
-        'DISTRIBUTION' => 'EXODIST/Test-Simple-1.302133.tar.gz',
+        'DISTRIBUTION' => 'EXODIST/Test-Simple-1.302136.tar.gz',
         'FILES'        => q[cpan/Test-Simple],
         'EXCLUDED'     => [
             qr{^examples/},
index 46f93cc..966b3cf 100644 (file)
@@ -4,7 +4,7 @@ use 5.006;
 use strict;
 use warnings;
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 BEGIN {
     if( $] < 5.008 ) {
index 82a8eea..7c0a454 100644 (file)
@@ -2,7 +2,7 @@ package Test::Builder::Formatter;
 use strict;
 use warnings;
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 BEGIN { require Test2::Formatter::TAP; our @ISA = qw(Test2::Formatter::TAP) }
 
index be66239..6ac1466 100644 (file)
@@ -7,7 +7,7 @@ use Test::Builder;
 require Exporter;
 our @ISA = qw(Exporter);
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 
 =head1 NAME
index 25ad7c5..c92a468 100644 (file)
@@ -1,7 +1,7 @@
 package Test::Builder::Tester;
 
 use strict;
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 use Test::Builder;
 use Symbol;
index 5cb0e34..52e73fa 100644 (file)
@@ -1,7 +1,7 @@
 package Test::Builder::Tester::Color;
 
 use strict;
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 require Test::Builder::Tester;
 
index b972a49..62ccc0c 100644 (file)
@@ -2,7 +2,7 @@ package Test::Builder::TodoDiag;
 use strict;
 use warnings;
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 BEGIN { require Test2::Event::Diag; our @ISA = qw(Test2::Event::Diag) }
 
index 9184c62..2f1d592 100644 (file)
@@ -17,7 +17,7 @@ sub _carp {
     return warn @_, " at $file line $line\n";
 }
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 use Test::Builder::Module;
 our @ISA    = qw(Test::Builder::Module);
index 5622021..c84554d 100644 (file)
@@ -4,7 +4,7 @@ use 5.006;
 
 use strict;
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 use Test::Builder::Module;
 our @ISA    = qw(Test::Builder::Module);
index 758a497..ef00812 100644 (file)
@@ -18,7 +18,7 @@ require Exporter;
 
 use vars qw( @ISA @EXPORT );
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 @EXPORT = qw( run_tests check_tests check_test cmp_results show_space );
 @ISA = qw( Exporter );
index d3e3425..fca6763 100644 (file)
@@ -2,7 +2,7 @@ use strict;
 
 package Test::Tester::Capture;
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 
 use Test::Builder;
index 57f7357..93a4923 100644 (file)
@@ -3,7 +3,7 @@ use strict;
 
 package Test::Tester::CaptureRunner;
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 
 use Test::Tester::Capture;
index a1ea620..f8c96c6 100644 (file)
@@ -3,7 +3,7 @@ use warnings;
 
 package Test::Tester::Delegate;
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 use Scalar::Util();
 
index 1405824..5236b8a 100644 (file)
@@ -1,7 +1,7 @@
 package Test::use::ok;
 use 5.005;
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 
 __END__
index b3b6d3c..86f8835 100644 (file)
@@ -2,7 +2,7 @@ package Test2;
 use strict;
 use warnings;
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 
 1;
index f5caaa6..8f6f299 100644 (file)
@@ -9,7 +9,7 @@ BEGIN {
     $ENV{TEST2_ACTIVE} = 1;
 }
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 
 my $INST;
@@ -70,7 +70,7 @@ use Test2::Event::Subtest();
 
 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
@@ -99,6 +99,8 @@ our @EXPORT_OK = qw{
 
     test2_add_uuid_via
 
+    test2_add_callback_testing_done
+
     test2_add_callback_context_aquire
     test2_add_callback_context_acquire
     test2_add_callback_context_init
@@ -180,6 +182,22 @@ sub test2_no_wait {
     $INST->no_wait;
 }
 
+sub test2_add_callback_testing_done {
+    my $cb = shift;
+
+    test2_add_callback_post_load(sub {
+        my $stack = test2_stack();
+        $stack->top; # Insure we have a hub
+        my ($hub) = Test2::API::test2_stack->all;
+
+        $hub->set_active(1);
+
+        $hub->follow_up($cb);
+    });
+
+    return;
+}
+
 sub test2_add_callback_context_acquire   { $INST->add_context_acquire_callback(@_) }
 sub test2_add_callback_context_aquire    { $INST->add_context_acquire_callback(@_) }
 sub test2_add_callback_context_init      { $INST->add_context_init_callback(@_) }
@@ -289,7 +307,6 @@ sub no_context(&;$) {
 };
 
 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 +386,7 @@ sub context {
             frame  => [$pkg, $file, $line, $sub],
             pid    => $$,
             tid    => get_tid(),
-            cid    => 'C' . $CID++,
+            cid    => gen_uid(),
             hid    => $hid,
             nested => $hub->{nested},
             buffered => $hub->{buffered},
@@ -1326,6 +1343,22 @@ Add a callback that will be called when Test2 is finished loading. This
 means the callback will be run once, the first time a context is obtained.
 If Test2 has already finished loading then the callback will be run immediately.
 
+=item test2_add_callback_testing_done(sub { ... })
+
+This adds your coderef as a follow-up to the root hub after Test2 is finished loading.
+
+This is essentially a helper to do the following:
+
+    test2_add_callback_post_load(sub {
+        my $stack = test2_stack();
+        $stack->top; # Insure we have a hub
+        my ($hub) = Test2::API::test2_stack->all;
+
+        $hub->set_active(1);
+
+        $hub->follow_up(sub { ... }); # <-- Your coderef here
+    });
+
 =item test2_add_callback_context_acquire(sub { ... })
 
 Add a callback that will be called every time someone tries to acquire a
index 08aee9d..afed100 100644 (file)
@@ -2,7 +2,7 @@ package Test2::API::Breakage;
 use strict;
 use warnings;
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 
 use Test2::Util qw/pkg_to_file/;
index 6141a43..85039ac 100644 (file)
@@ -2,7 +2,7 @@ package Test2::API::Context;
 use strict;
 use warnings;
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 
 use Carp qw/confess croak/;
index 0522dd7..8e39d8a 100644 (file)
@@ -2,7 +2,7 @@ package Test2::API::Instance;
 use strict;
 use warnings;
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 
 our @CARP_NOT = qw/Test2::API Test2::API::Instance Test2::IPC::Driver Test2::Formatter/;
index 8007e1a..dc08b8f 100644 (file)
@@ -2,7 +2,7 @@ package Test2::API::Stack;
 use strict;
 use warnings;
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 
 use Test2::Hub();
index 307d49b..466975b 100644 (file)
@@ -2,14 +2,14 @@ package Test2::Event;
 use strict;
 use warnings;
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 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 add_amnesty {
     }
 }
 
+sub eid { $_[0]->{+_EID} ||= gen_uid() }
+
 sub common_facet_data {
     my $self = shift;
 
@@ -130,6 +132,8 @@ sub common_facet_data {
         $out{about}->{uuid} = $uuid;
     }
 
+    $out{about}->{eid} = $self->{+_EID} || $self->eid;
+
     if (my $trace = $self->trace) {
         $out{trace} = { %$trace };
     }
index bfd99ee..6395417 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Event::Bail;
 use strict;
 use warnings;
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 
 BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
index f5d3a6a..8b4d214 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Event::Diag;
 use strict;
 use warnings;
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 
 BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
index cd4b28d..06421db 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Event::Encoding;
 use strict;
 use warnings;
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 use Carp qw/croak/;
 
index 4ec36c5..fe2301a 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Event::Exception;
 use strict;
 use warnings;
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 
 BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
index f243918..7ce8972 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Event::Fail;
 use strict;
 use warnings;
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 use Test2::EventFacet::Info;
 
index b5bf934..67d97bc 100644 (file)
@@ -5,7 +5,7 @@ use warnings;
 use Carp qw/croak/;
 use Scalar::Util qw/reftype/;
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
 use Test2::Util::HashBase;
index 2fb1d0d..b35d1b8 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Event::Note;
 use strict;
 use warnings;
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 
 BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
index fb9a8db..d774174 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Event::Ok;
 use strict;
 use warnings;
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 
 BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
index 78fe1b2..b00df12 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Event::Pass;
 use strict;
 use warnings;
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 use Test2::EventFacet::Info;
 
index a75e14d..1dbacd9 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Event::Plan;
 use strict;
 use warnings;
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 
 BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
index 7a2e660..51195a2 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Event::Skip;
 use strict;
 use warnings;
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 
 BEGIN { require Test2::Event::Ok; our @ISA = qw(Test2::Event::Ok) }
index 3feb0f1..6ef09fb 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Event::Subtest;
 use strict;
 use warnings;
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 BEGIN { require Test2::Event::Ok; our @ISA = qw(Test2::Event::Ok) }
 use Test2::Util::HashBase qw{subevents buffered subtest_id subtest_uuid};
index 03f2621..b80a68b 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Event::TAP::Version;
 use strict;
 use warnings;
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 use Carp qw/croak/;
 
index 86a44d4..326955e 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Event::V2;
 use strict;
 use warnings;
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 use Scalar::Util qw/reftype/;
 use Carp qw/croak/;
index 58b583f..eb84837 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Event::Waiting;
 use strict;
 use warnings;
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 
 BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
index 619d369..3eb8335 100644 (file)
@@ -2,7 +2,7 @@ package Test2::EventFacet;
 use strict;
 use warnings;
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 use Test2::Util::HashBase qw/-details/;
 use Carp qw/croak/;
index fe1d30e..7145a6d 100644 (file)
@@ -2,10 +2,10 @@ package Test2::EventFacet::About;
 use strict;
 use warnings;
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 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 @@ True if the event should be skipped by formatters.
 
 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
index 9ef227f..4eeeb4c 100644 (file)
@@ -2,7 +2,7 @@ package Test2::EventFacet::Amnesty;
 use strict;
 use warnings;
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 sub is_list { 1 }
 
index 090860a..abebc28 100644 (file)
@@ -2,7 +2,7 @@ package Test2::EventFacet::Assert;
 use strict;
 use warnings;
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) }
 use Test2::Util::HashBase qw{ -pass -no_debug -number };
index b52718d..81d0576 100644 (file)
@@ -2,7 +2,7 @@ package Test2::EventFacet::Control;
 use strict;
 use warnings;
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) }
 use Test2::Util::HashBase qw{ -global -terminate -halt -has_callback -encoding };
index 306dc31..5e9e1d0 100644 (file)
@@ -2,7 +2,7 @@ package Test2::EventFacet::Error;
 use strict;
 use warnings;
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 sub facet_key { 'errors' }
 sub is_list { 1 }
index 03c5553..6c7936e 100644 (file)
@@ -2,7 +2,7 @@ package Test2::EventFacet::Hub;
 use strict;
 use warnings;
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 sub is_list { 1 }
 sub facet_key { 'hubs' }
@@ -20,7 +20,7 @@ __END__
 
 =head1 NAME
 
-Test2::EventFacet::Hub
+Test2::EventFacet::Hub - Facet for the hubs an event passes through.
 
 =head1 DESCRIPTION
 
index 805cab1..54a35fd 100644 (file)
@@ -2,7 +2,7 @@ package Test2::EventFacet::Info;
 use strict;
 use warnings;
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 sub is_list { 1 }
 
index 31a4e0c..10403a9 100644 (file)
@@ -2,7 +2,7 @@ package Test2::EventFacet::Meta;
 use strict;
 use warnings;
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) }
 use vars qw/$AUTOLOAD/;
index baf66e9..054a361 100644 (file)
@@ -2,7 +2,7 @@ package Test2::EventFacet::Parent;
 use strict;
 use warnings;
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 use Carp qw/confess/;
 
index 3789bcb..3b4774d 100644 (file)
@@ -2,7 +2,7 @@ package Test2::EventFacet::Plan;
 use strict;
 use warnings;
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) }
 use Test2::Util::HashBase qw{ -count -skip -none };
index 709a9f6..cc07b78 100644 (file)
@@ -2,7 +2,7 @@ package Test2::EventFacet::Render;
 use strict;
 use warnings;
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 sub is_list { 1 }
 
index 280258c..35d3d84 100644 (file)
@@ -2,11 +2,11 @@ package Test2::EventFacet::Trace;
 use strict;
 use warnings;
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 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 @@ sub init {
 
     $_[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 @@ Get the debug-info subroutine name.
 =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
 
index 0f179e5..c553399 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Formatter;
 use strict;
 use warnings;
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 
 my %ADDED;
index 2082de7..2faee62 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Formatter::TAP;
 use strict;
 use warnings;
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 use Test2::Util qw/clone_io/;
 
index 6be1c8d..3754f22 100644 (file)
@@ -2,11 +2,11 @@ package Test2::Hub;
 use strict;
 use warnings;
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 
 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 @@ use Test2::Util::HashBase qw{
 
 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 @@ sub _tb_reset {
 
     $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 @@ sub send {
     my $self = shift;
     my ($e) = @_;
 
+    $e->eid;
+
     $e->add_hub(
         {
             details => ref($self),
index b7af4cf..a08aad8 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Hub::Interceptor;
 use strict;
 use warnings;
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 
 use Test2::Hub::Interceptor::Terminator();
index 76ad94a..1925e86 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Hub::Interceptor::Terminator;
 use strict;
 use warnings;
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 
 1;
index c36a19e..707c941 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Hub::Subtest;
 use strict;
 use warnings;
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 BEGIN { require Test2::Hub; our @ISA = qw(Test2::Hub) }
 use Test2::Util::HashBase qw/nested exit_code manual_skip_all/;
index cfee461..7e7ae26 100644 (file)
@@ -2,7 +2,7 @@ package Test2::IPC;
 use strict;
 use warnings;
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 
 use Test2::API::Instance;
index a4d7255..6026cd4 100644 (file)
@@ -2,7 +2,7 @@ package Test2::IPC::Driver;
 use strict;
 use warnings;
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 
 use Carp qw/confess/;
index 1d37a83..6b34163 100644 (file)
@@ -2,7 +2,7 @@ package Test2::IPC::Driver::Files;
 use strict;
 use warnings;
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 
 BEGIN { require Test2::IPC::Driver; our @ISA = qw(Test2::IPC::Driver) }
@@ -270,7 +270,7 @@ sub parse_event_filename {
     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;
 
index 93c3df0..2892853 100644 (file)
@@ -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.302133';
+our $VERSION = '1.302136';
 
 BEGIN { require Exporter; our @ISA = qw(Exporter) }
 our @EXPORT = qw{
index 6de008b..fd71bed 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Util;
 use strict;
 use warnings;
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 use POSIX();
 use Config qw/%Config/;
@@ -29,6 +29,8 @@ our @EXPORT_OK = qw{
 
     ipc_separator
 
+    gen_uid
+
     do_rename do_unlink
 
     try_sig_mask
@@ -157,6 +159,9 @@ sub pkg_to_file {
 
 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 @@ otherwise it returns 0.
 
 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
index f03422c..8190131 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Util::ExternalMeta;
 use strict;
 use warnings;
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 
 use Carp qw/croak/;
index db74510..b4144c7 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Util::Facets2Legacy;
 use strict;
 use warnings;
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 use Carp qw/croak confess/;
 use Scalar::Util qw/blessed/;
index 8e73af4..7781c2e 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Util::HashBase;
 use strict;
 use warnings;
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 #################################################################
 #                                                               #
index 1e5351f..bcab397 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Util::Trace;
 require Test2::EventFacet::Trace;
 @ISA = ('Test2::EventFacet::Trace');
 
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 1;
 
index 19f0f08..cbdde48 100644 (file)
@@ -1,5 +1,5 @@
 package ok;
-our $VERSION = '1.302133';
+our $VERSION = '1.302136';
 
 use strict;
 use Test::More ();
index bb3dbf9..20649f2 100644 (file)
@@ -24,9 +24,10 @@ ok($sigpass ne $sigfail, "Each tool got a new signature");
 
 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");
index 6a414f7..6d87bd6 100644 (file)
@@ -82,7 +82,8 @@ tests facet_data => sub {
             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 @@ tests facet_data => sub {
                 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 @@ tests facet_data => sub {
             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 @@ tests facet_data => sub {
             about => {
                 package    => 'Test2::Event::Generic',
                 details    => 'Test2::Event::Generic',
+                eid        => $e->eid,
                 no_display => undef
             },
             control => {
@@ -153,6 +156,7 @@ tests facet_data => sub {
             about => {
                 package    => 'Test2::Event::Generic',
                 details    => 'Test2::Event::Generic',
+                eid        => $e->eid,
                 no_display => undef
             },
             control => {
@@ -181,6 +185,7 @@ tests facet_data => sub {
             about => {
                 package    => 'Test2::Event::Generic',
                 details    => 'Test2::Event::Generic',
+                eid        => $e->eid,
                 no_display => undef
             },
             control => {
@@ -211,6 +216,7 @@ tests facet_data => sub {
             about => {
                 package    => 'Test2::Event::Generic',
                 details    => 'Test2::Event::Generic',
+                eid        => $e->eid,
                 no_display => undef
             },
             control => {
@@ -244,6 +250,7 @@ tests facet_data => sub {
             about => {
                 package    => 'Test2::Event::Generic',
                 details    => 'Test2::Event::Generic',
+                eid        => $e->eid,
                 no_display => undef
             },
             control => {
@@ -273,6 +280,7 @@ tests facet_data => sub {
             about => {
                 package    => 'Test2::Event::Generic',
                 details    => 'Test2::Event::Generic',
+                eid        => $e->eid,
                 no_display => undef
             },
             control => {
@@ -303,6 +311,7 @@ tests facet_data => sub {
             about => {
                 package    => 'Test2::Event::Generic',
                 details    => 'Test2::Event::Generic',
+                eid        => $e->eid,
                 no_display => undef
             },
             control => {
@@ -334,6 +343,7 @@ tests facet_data => sub {
             about => {
                 package    => 'Test2::Event::Generic',
                 details    => 'Test2::Event::Generic',
+                eid        => $e->eid,
                 no_display => undef
             },
             control => {
@@ -364,6 +374,7 @@ tests facet_data => sub {
             about => {
                 package    => 'Test2::Event::Generic',
                 details    => 'Test2::Event::Generic',
+                eid        => $e->eid,
                 no_display => undef
             },
             control => {
@@ -395,6 +406,7 @@ tests facet_data => sub {
             about => {
                 package    => 'Test2::Event::Generic',
                 details    => 'Test2::Event::Generic',
+                eid        => $e->eid,
                 no_display => undef
             },
             control => {
@@ -431,6 +443,7 @@ tests facet_data => sub {
             about => {
                 package    => 'Test2::Event::Generic',
                 details    => 'Test2::Event::Generic',
+                eid        => $e->eid,
                 no_display => 1,
             },
             control => {
@@ -449,6 +462,7 @@ tests facet_data => sub {
             about => {
                 package    => 'Test2::Event::Generic',
                 details    => 'Test2::Event::Generic',
+                eid        => $e->eid,
                 no_display => undef,
             },
             control => {
@@ -472,6 +486,7 @@ tests facet_data => sub {
             about => {
                 package    => 'Test2::Event::Generic',
                 details    => 'foo bar baz',
+                eid        => $e->eid,
                 no_display => undef,
             },
             control => {
@@ -577,6 +592,7 @@ tests common_facet_data => sub {
         {
             about => {
                 package => 'Test2::Event::Generic',
+                eid     => $e->eid,
             },
         },
         "Facet data has an about"
@@ -588,6 +604,7 @@ tests common_facet_data => sub {
         {
             about => {
                 package => 'Test2::Event::Generic',
+                eid     => $e->eid,
             },
             trace => {
                 frame => ['foo', 'foo.t', 42],
@@ -604,6 +621,7 @@ tests common_facet_data => sub {
         {
             about => {
                 package => 'Test2::Event::Generic',
+                eid     => $e->eid,
             },
             trace => {
                 frame => ['foo', 'foo.t', 42],
@@ -622,6 +640,7 @@ tests common_facet_data => sub {
         {
             about => {
                 package => 'Test2::Event::Generic',
+                eid     => $e->eid,
             },
             trace => {
                 frame => ['foo', 'foo.t', 42],
index 3601793..f245b20 100644 (file)
@@ -25,6 +25,7 @@ is_deeply(
     {
         about => {
             package => 'Test2::Event::Bail',
+            eid     => $bail->eid,
         },
         control => {
             global    => 1,
@@ -51,6 +52,7 @@ is_deeply(
     {
         about => {
             package => 'Test2::Event::Bail',
+            eid     => $bail->eid,
         },
         control => {
             global    => 1,
index 9ac6baf..8571561 100644 (file)
@@ -19,7 +19,11 @@ is($one->summary, "Encoding set to utf8", "Got summary");
 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"
index 80d27f6..589dd74 100644 (file)
@@ -27,7 +27,7 @@ $one->add_info({tag => 'xxx', details => 'yyy'});
 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'}],
index 10d57ec..46e358d 100644 (file)
@@ -27,18 +27,20 @@ is_deeply(
         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"
 );
index 52c71ea..d0d37b0 100644 (file)
@@ -26,7 +26,7 @@ is_deeply(
     $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'}],
index 209c48e..d275ead 100644 (file)
@@ -42,7 +42,8 @@ is_deeply(
             {
                 about => {
                     details => 'pass',
-                    package => 'Test2::Event::Pass'
+                    package => 'Test2::Event::Pass',
+                    eid     => $one->subevents->[0]->eid,
                 },
                 assert => {
                     details => 'xxx',
index a1fd6b9..ba40b9f 100644 (file)
@@ -19,7 +19,7 @@ is($one->summary, "TAP version 13", "Got summary");
 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"
index 8626b1f..f896db0 100644 (file)
@@ -46,7 +46,7 @@ ok(-d $ipc->tempdir, "created temp dir");
 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 @@ ok(!-d $tmpdir, "cleaned up temp dir");
     );
 
     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 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 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 @@ ok(!-d $tmpdir, "cleaned up temp dir");
 {
     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,
index 88bfd0e..efbfd08 100644 (file)
@@ -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 @@ use Test2::Util qw/
     CAN_THREAD
     CAN_REALLY_FORK
 
+    ipc_separator
+    gen_uid
+
     CAN_SIGSYS
 
     IS_WIN32
@@ -84,5 +95,17 @@ print $io "Test\n";
 
 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;
index 98eaac6..5b723a8 100644 (file)
@@ -17,7 +17,7 @@ tests _get_facet_data => sub {
     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"