1*5759b3d2Safresh1use strict; 2*5759b3d2Safresh1use warnings; 3*5759b3d2Safresh1 4*5759b3d2Safresh1use Test2::Tools::Tiny; 5*5759b3d2Safresh1 6*5759b3d2Safresh1use Test2::API qw/intercept/; 7*5759b3d2Safresh1 8*5759b3d2Safresh1tests in_eval => sub { 9*5759b3d2Safresh1 my $events = intercept { 10*5759b3d2Safresh1 eval { skip_all "foo" }; 11*5759b3d2Safresh1 die "Should not see this: $@"; 12*5759b3d2Safresh1 }; 13*5759b3d2Safresh1 14*5759b3d2Safresh1 is(@$events, 1, "got 1 event"); 15*5759b3d2Safresh1 ok($events->[0]->isa('Test2::Event::Plan'), "Plan is only event"); 16*5759b3d2Safresh1 is($events->[0]->directive, 'SKIP', "Plan is to skip"); 17*5759b3d2Safresh1}; 18*5759b3d2Safresh1 19*5759b3d2Safresh1tests no_eval => sub { 20*5759b3d2Safresh1 my $events = intercept { 21*5759b3d2Safresh1 skip_all "foo"; 22*5759b3d2Safresh1 die "Should not see this: $@"; 23*5759b3d2Safresh1 }; 24*5759b3d2Safresh1 25*5759b3d2Safresh1 is(@$events, 1, "got 1 event"); 26*5759b3d2Safresh1 ok($events->[0]->isa('Test2::Event::Plan'), "Plan is only event"); 27*5759b3d2Safresh1 is($events->[0]->directive, 'SKIP', "Plan is to skip"); 28*5759b3d2Safresh1}; 29*5759b3d2Safresh1 30*5759b3d2Safresh1tests in_require => sub { 31*5759b3d2Safresh1 my $events = intercept { 32*5759b3d2Safresh1 require './t/lib/SkipAll.pm'; 33*5759b3d2Safresh1 die "Should not see this: $@"; 34*5759b3d2Safresh1 }; 35*5759b3d2Safresh1 36*5759b3d2Safresh1 is(@$events, 1, "got 1 event"); 37*5759b3d2Safresh1 ok($events->[0]->isa('Test2::Event::Plan'), "Plan is only event"); 38*5759b3d2Safresh1 is($events->[0]->directive, 'SKIP', "Plan is to skip"); 39*5759b3d2Safresh1}; 40*5759b3d2Safresh1 41*5759b3d2Safresh1done_testing; 42