15759b3d2Safresh1use strict; 25759b3d2Safresh1use warnings; 35759b3d2Safresh1 45759b3d2Safresh1use Test2::Tools::Tiny; 55759b3d2Safresh1use Test2::API qw/intercept context/; 65759b3d2Safresh1 75759b3d2Safresh1use ok 'Test2::Event::Pass'; 85759b3d2Safresh1my $CLASS = 'Test2::Event::Pass'; 95759b3d2Safresh1 105759b3d2Safresh1my $one = $CLASS->new(name => 'soup for you', trace => {frame => ['foo', 'foo.pl', 42]}); 115759b3d2Safresh1 125759b3d2Safresh1is($one->summary, "pass", 'summary'); 135759b3d2Safresh1is($one->increments_count, 1, 'increments_count'); 145759b3d2Safresh1is($one->diagnostics, 0, 'diagnostics'); 155759b3d2Safresh1is($one->no_display, 0, 'no_display'); 165759b3d2Safresh1is($one->subtest_id, undef, 'subtest_id'); 175759b3d2Safresh1is($one->terminate, undef, 'terminate'); 185759b3d2Safresh1is($one->global, undef, 'global'); 195759b3d2Safresh1is($one->sets_plan, undef, 'sets_plan'); 205759b3d2Safresh1is($one->causes_fail, 0, 'causes_fail is false'); 215759b3d2Safresh1 225759b3d2Safresh1$one->add_amnesty({tag => 'blah', details => 'blah'}); 235759b3d2Safresh1$one->add_info({tag => 'xxx', details => 'yyy'}); 245759b3d2Safresh1 255759b3d2Safresh1is_deeply( 265759b3d2Safresh1 $one->facet_data, 275759b3d2Safresh1 { 285759b3d2Safresh1 trace => {frame => ['foo', 'foo.pl', 42]}, 29*f3efcd01Safresh1 about => {package => $CLASS, details => 'pass', eid => $one->eid}, 305759b3d2Safresh1 assert => {pass => 1, details => 'soup for you'}, 315759b3d2Safresh1 amnesty => [{tag => 'blah', details => 'blah'}], 325759b3d2Safresh1 info => [{tag => 'xxx', details => 'yyy'}], 335759b3d2Safresh1 }, 345759b3d2Safresh1 "Got facet data" 355759b3d2Safresh1); 365759b3d2Safresh1 375759b3d2Safresh1done_testing; 38