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