6 BEGIN { delete $ENV{PERL_TEST_LEANER_USES_TEST_MORE} }
8 use Test::Leaner tests => 7;
13 skip 'test skipping a block' => 1;
14 fail 'should not be reached';
18 pass 'outer block begin';
20 skip 'test skipping the inner nested block' => 1;
21 fail 'should not be reached either';
23 pass 'back to outer block';
24 skip 'test skipping the outer nested block' => 1;
25 fail 'should not be reached as well';