diff options
Diffstat (limited to 'cpan/Test-Simple/t/Test2/modules/Event/Diag.t')
-rw-r--r-- | cpan/Test-Simple/t/Test2/modules/Event/Diag.t | 27 |
1 files changed, 23 insertions, 4 deletions
diff --git a/cpan/Test-Simple/t/Test2/modules/Event/Diag.t b/cpan/Test-Simple/t/Test2/modules/Event/Diag.t index 9094c0af18..885ee085c0 100644 --- a/cpan/Test-Simple/t/Test2/modules/Event/Diag.t +++ b/cpan/Test-Simple/t/Test2/modules/Event/Diag.t @@ -2,17 +2,17 @@ use strict; use warnings; use Test2::Tools::Tiny; use Test2::Event::Diag; -use Test2::Util::Trace; +use Test2::EventFacet::Trace; my $diag = Test2::Event::Diag->new( - trace => Test2::Util::Trace->new(frame => [__PACKAGE__, __FILE__, __LINE__]), + trace => Test2::EventFacet::Trace->new(frame => [__PACKAGE__, __FILE__, __LINE__]), message => 'foo', ); is($diag->summary, 'foo', "summary is just message"); $diag = Test2::Event::Diag->new( - trace => Test2::Util::Trace->new(frame => [__PACKAGE__, __FILE__, __LINE__]), + trace => Test2::EventFacet::Trace->new(frame => [__PACKAGE__, __FILE__, __LINE__]), message => undef, ); @@ -20,7 +20,7 @@ is($diag->message, 'undef', "set undef message to undef"); is($diag->summary, 'undef', "summary is just message even when undef"); $diag = Test2::Event::Diag->new( - trace => Test2::Util::Trace->new(frame => [__PACKAGE__, __FILE__, __LINE__]), + trace => Test2::EventFacet::Trace->new(frame => [__PACKAGE__, __FILE__, __LINE__]), message => {}, ); @@ -28,4 +28,23 @@ like($diag->message, qr/^HASH\(.*\)$/, "stringified the input value"); ok($diag->diagnostics, "Diag events are counted as diagnostics"); +$diag = Test2::Event::Diag->new( + trace => Test2::EventFacet::Trace->new(frame => [__PACKAGE__, __FILE__, __LINE__]), + message => "Hi there", +); + +my $facet_data = $diag->facet_data; +ok($facet_data->{about}, "Got 'about' from common"); +ok($facet_data->{trace}, "Got 'trace' from common"); + +is_deeply( + $facet_data->{info}, + [{ + tag => 'DIAG', + debug => 1, + details => 'Hi there', + }], + "Got info facet" +); + done_testing; |