Fix and test skip()

[perl/modules/Test-Leaner.git] / t / 18-skip.t

diff --git a/t/18-skip.t b/t/18-skip.t
new file mode 100644 (file)
index 0000000..05fa3ae
--- /dev/null
+++ b/t/18-skip.t
@@ -0,0 +1,26 @@
+#!perl -T
+
+use strict;
+use warnings;
+
+use Test::Leaner tests => 7;
+
+pass 'test begin';
+
+SKIP: {
+ skip 'test skipping a block' => 1;
+ fail 'should not be reached';
+}
+
+SKIP: {
+ pass 'outer block begin';
+ SKIP: {
+  skip 'test skipping the inner nested block' => 1;
+  fail 'should not be reached either';
+ }
+ pass 'back to outer block';
+ skip 'test skipping the outer nested block' => 1;
+ fail 'should not be reached as well';
+}
+
+pass 'test end';