1*5759b3d2Safresh1BEGIN { 2*5759b3d2Safresh1 if( $ENV{PERL_CORE} ) { 3*5759b3d2Safresh1 chdir 't'; 4*5759b3d2Safresh1 @INC = '../lib'; 5*5759b3d2Safresh1 } 6*5759b3d2Safresh1} 7*5759b3d2Safresh1 8*5759b3d2Safresh1use Test::More; 9*5759b3d2Safresh1 10*5759b3d2Safresh1BEGIN { 11*5759b3d2Safresh1 if( !$ENV{HARNESS_ACTIVE} && $ENV{PERL_CORE} ) { 12*5759b3d2Safresh1 plan skip_all => "Won't work with t/TEST"; 13*5759b3d2Safresh1 } 14*5759b3d2Safresh1} 15*5759b3d2Safresh1 16*5759b3d2Safresh1plan 'no_plan'; 17*5759b3d2Safresh1 18*5759b3d2Safresh1pass('Just testing'); 19*5759b3d2Safresh1ok(1, 'Testing again'); 20*5759b3d2Safresh1 21*5759b3d2Safresh1{ 22*5759b3d2Safresh1 my $warning = ''; 23*5759b3d2Safresh1 local $SIG{__WARN__} = sub { $warning = join "", @_ }; 24*5759b3d2Safresh1 SKIP: { 25*5759b3d2Safresh1 skip 'Just testing skip with no_plan'; 26*5759b3d2Safresh1 fail("So very failed"); 27*5759b3d2Safresh1 } 28*5759b3d2Safresh1 is( $warning, '', 'skip with no "how_many" ok with no_plan' ); 29*5759b3d2Safresh1 30*5759b3d2Safresh1 31*5759b3d2Safresh1 $warning = ''; 32*5759b3d2Safresh1 TODO: { 33*5759b3d2Safresh1 todo_skip "Just testing todo_skip"; 34*5759b3d2Safresh1 35*5759b3d2Safresh1 fail("Just testing todo"); 36*5759b3d2Safresh1 die "todo_skip should prevent this"; 37*5759b3d2Safresh1 pass("Again"); 38*5759b3d2Safresh1 } 39*5759b3d2Safresh1 is( $warning, '', 'skip with no "how_many" ok with no_plan' ); 40*5759b3d2Safresh1} 41