2 if( $ENV{PERL_CORE} ) {
11 if( !$ENV{HARNESS_ACTIVE} && $ENV{PERL_CORE} ) {
12 plan skip_all => "Won't work with t/TEST";
19 ok(1, 'Testing again');
23 local $SIG{__WARN__} = sub { $warning = join "", @_ };
25 skip 'Just testing skip with no_plan';
26 fail("So very failed");
28 is( $warning, '', 'skip with no "how_many" ok with no_plan' );
33 todo_skip "Just testing todo_skip";
35 fail("Just testing todo");
36 die "todo_skip should prevent this";
39 is( $warning, '', 'skip with no "how_many" ok with no_plan' );