15759b3d2Safresh1use strict; 25759b3d2Safresh1use warnings; 35759b3d2Safresh1 45759b3d2Safresh1use Test2::Tools::Tiny; 55759b3d2Safresh1use Test2::API qw/intercept context/; 65759b3d2Safresh1 75759b3d2Safresh1use ok 'Test2::Event::Fail'; 85759b3d2Safresh1my $CLASS = 'Test2::Event::Fail'; 95759b3d2Safresh1 105759b3d2Safresh1my $one = $CLASS->new(name => 'no soup for you'); 115759b3d2Safresh1 125759b3d2Safresh1is($one->summary, "fail", '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, 1, 'causes_fail'); 215759b3d2Safresh1 225759b3d2Safresh1$one->add_amnesty({tag => 'blah', details => 'blah'}); 235759b3d2Safresh1is($one->causes_fail, 0, 'causes_fail is off with amnesty'); 245759b3d2Safresh1 255759b3d2Safresh1$one->add_info({tag => 'xxx', details => 'yyy'}); 265759b3d2Safresh1 275759b3d2Safresh1is_deeply( 285759b3d2Safresh1 $one->facet_data, 295759b3d2Safresh1 { 30*f3efcd01Safresh1 about => {package => $CLASS, details => 'fail', eid => $one->eid}, 315759b3d2Safresh1 assert => {pass => 0, details => 'no soup for you'}, 325759b3d2Safresh1 amnesty => [{tag => 'blah', details => 'blah'}], 335759b3d2Safresh1 info => [{tag => 'xxx', details => 'yyy'}], 345759b3d2Safresh1 }, 355759b3d2Safresh1 "Got facet data" 365759b3d2Safresh1); 375759b3d2Safresh1 385759b3d2Safresh1done_testing; 39