]> git.vpit.fr Git - perl/modules/Test-Leaner.git/blob - t/18-skip.t
Bump copyright year
[perl/modules/Test-Leaner.git] / t / 18-skip.t
1 #!perl -T
2
3 use strict;
4 use warnings;
5
6 BEGIN { delete $ENV{PERL_TEST_LEANER_USES_TEST_MORE} }
7
8 use Test::Leaner tests => 7;
9
10 pass 'test begin';
11
12 SKIP: {
13  skip 'test skipping a block' => 1;
14  fail 'should not be reached';
15 }
16
17 SKIP: {
18  pass 'outer block begin';
19  SKIP: {
20   skip 'test skipping the inner nested block' => 1;
21   fail 'should not be reached either';
22  }
23  pass 'back to outer block';
24  skip 'test skipping the outer nested block' => 1;
25  fail 'should not be reached as well';
26 }
27
28 pass 'test end';