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