1*5759b3d2Safresh1use Test2::Tools::Tiny; 2*5759b3d2Safresh1use strict; 3*5759b3d2Safresh1use warnings; 4*5759b3d2Safresh1 5*5759b3d2Safresh1use Test2::Event::Skip; 6*5759b3d2Safresh1use Test2::EventFacet::Trace; 7*5759b3d2Safresh1 8*5759b3d2Safresh1my $skip = Test2::Event::Skip->new( 9*5759b3d2Safresh1 trace => Test2::EventFacet::Trace->new(frame => [__PACKAGE__, __FILE__, __LINE__]), 10*5759b3d2Safresh1 name => 'skip me', 11*5759b3d2Safresh1 reason => 'foo', 12*5759b3d2Safresh1); 13*5759b3d2Safresh1 14*5759b3d2Safresh1my $facet_data = $skip->facet_data; 15*5759b3d2Safresh1ok($facet_data->{about}, "Got basic data"); 16*5759b3d2Safresh1is_deeply( 17*5759b3d2Safresh1 $facet_data->{amnesty}, 18*5759b3d2Safresh1 [ 19*5759b3d2Safresh1 { 20*5759b3d2Safresh1 tag => 'skip', 21*5759b3d2Safresh1 details => 'foo', 22*5759b3d2Safresh1 inherited => 0, 23*5759b3d2Safresh1 } 24*5759b3d2Safresh1 ], 25*5759b3d2Safresh1 "Added some amnesty for the skip", 26*5759b3d2Safresh1); 27*5759b3d2Safresh1 28*5759b3d2Safresh1is($skip->name, 'skip me', "set name"); 29*5759b3d2Safresh1is($skip->reason, 'foo', "got skip reason"); 30*5759b3d2Safresh1ok(!$skip->pass, "no default for pass"); 31*5759b3d2Safresh1ok($skip->effective_pass, "TODO always effectively passes"); 32*5759b3d2Safresh1 33*5759b3d2Safresh1is($skip->summary, "skip me (SKIP: foo)", "summary with reason"); 34*5759b3d2Safresh1 35*5759b3d2Safresh1$skip->set_reason(''); 36*5759b3d2Safresh1is($skip->summary, "skip me (SKIP)", "summary without reason"); 37*5759b3d2Safresh1 38*5759b3d2Safresh1done_testing; 39