t/op/blocks.t: indent 6 tests in a new skip block
authorDavid Mitchell <davem@iabyn.com>
Wed, 9 May 2018 12:52:50 +0000 (13:52 +0100)
committerDavid Mitchell <davem@iabyn.com>
Fri, 11 May 2018 07:37:20 +0000 (08:37 +0100)
Apart from the whitespace change, this just wraps 6 tests in
a SKIP: { ... } block which isn't (yet) used.

t/op/blocks.t

index 522c6fa..420a134 100644 (file)
@@ -188,48 +188,50 @@ SKIP: {
 }
 
 
-fresh_perl_is(
-    "$testblocks BEGIN { exit 1; }",
-    "begin\nunitcheck\ncheck\nend",
-    {},
-    "BEGIN{exit 1} should exit"
-);
+SKIP: {
+    fresh_perl_is(
+        "$testblocks BEGIN { exit 1; }",
+        "begin\nunitcheck\ncheck\nend",
+        {},
+        "BEGIN{exit 1} should exit"
+    );
 
-fresh_perl_like(
-    "$testblocks BEGIN { die; }",
-    qr/\Abegin\nDied[^\n]*\.\nBEGIN failed[^\n]*\.\nunitcheck\ncheck\nend\z/,
-    {},
-    "BEGIN{die} should exit"
-);
+    fresh_perl_like(
+        "$testblocks BEGIN { die; }",
+        qr/\Abegin\nDied[^\n]*\.\nBEGIN failed[^\n]*\.\nunitcheck\ncheck\nend\z/,
+        {},
+        "BEGIN{die} should exit"
+    );
 
-fresh_perl_is(
-    "$testblocks UNITCHECK { exit 1; }",
-    "begin\nunitcheck\ncheck\nend",
-    {},
-    "UNITCHECK{exit 1} should exit"
-);
+    fresh_perl_is(
+        "$testblocks UNITCHECK { exit 1; }",
+        "begin\nunitcheck\ncheck\nend",
+        {},
+        "UNITCHECK{exit 1} should exit"
+    );
 
-fresh_perl_like(
-    "$testblocks UNITCHECK { die; }",
-    qr/\Abegin\nDied[^\n]*\.\nUNITCHECK failed[^\n]*\.\nunitcheck\ncheck\nend\z/,
-    {},
-    "UNITCHECK{die} should exit"
-);
+    fresh_perl_like(
+        "$testblocks UNITCHECK { die; }",
+        qr/\Abegin\nDied[^\n]*\.\nUNITCHECK failed[^\n]*\.\nunitcheck\ncheck\nend\z/,
+        {},
+        "UNITCHECK{die} should exit"
+    );
 
 
-fresh_perl_is(
-    "$testblocks CHECK { exit 1; }",
-    "begin\nunitcheck\ncheck\nend",
-    {},
-    "CHECK{exit 1} should exit"
-);
+    fresh_perl_is(
+        "$testblocks CHECK { exit 1; }",
+        "begin\nunitcheck\ncheck\nend",
+        {},
+        "CHECK{exit 1} should exit"
+    );
 
-fresh_perl_like(
-    "$testblocks CHECK { die; }",
-    qr/\Abegin\nunitcheck\nDied[^\n]*\.\nCHECK failed[^\n]*\.\ncheck\nend\z/,
-    {},
-    "CHECK{die} should exit"
-);
+    fresh_perl_like(
+        "$testblocks CHECK { die; }",
+        qr/\Abegin\nunitcheck\nDied[^\n]*\.\nCHECK failed[^\n]*\.\ncheck\nend\z/,
+        {},
+        "CHECK{die} should exit"
+    );
+}
 
 fresh_perl_is(
     "$testblocks INIT { exit 0; }",