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';