t/op/blocks.t: add some whitespace
authorDavid Mitchell <davem@iabyn.com>
Wed, 9 May 2018 12:35:42 +0000 (13:35 +0100)
committerDavid Mitchell <davem@iabyn.com>
Fri, 11 May 2018 07:37:20 +0000 (08:37 +0100)
Makes the tests a bit easier to read.

t/op/blocks.t

index f220ab2..cda9b42 100644 (file)
@@ -147,30 +147,114 @@ fresh_perl_is('END { print "ok\n" } INIT { bless {} and exit }', "ok\n",
               {}, 'null PL_curcop in newGP');
 
 # [perl #2754] exit(0) didn't exit from inside a UNITCHECK or CHECK block
-my $testblocks = join(" ", "BEGIN { \$| = 1; }", (map { "@{[uc($_)]} { print \"$_\\n\"; }" } qw(begin unitcheck check init end)), "print \"main\\n\";");
-fresh_perl_is($testblocks, "begin\nunitcheck\ncheck\ninit\nmain\nend", {}, 'blocks execute in right order');
+
+my $testblocks =
+    join(" ",
+        "BEGIN { \$| = 1; }",
+        (map { "@{[uc($_)]} { print \"$_\\n\"; }" }
+            qw(begin unitcheck check init end)),
+        "print \"main\\n\";"
+    );
+
+fresh_perl_is(
+    $testblocks,
+    "begin\nunitcheck\ncheck\ninit\nmain\nend",
+    {},
+    'blocks execute in right order'
+);
+
 SKIP: {
     skip "VMS doesn't have the perl #2754 bug", 1 if $^O eq 'VMS';
-    fresh_perl_is("$testblocks BEGIN { exit 0; }", "begin\nunitcheck\ncheck\ninit\nend", {}, "BEGIN{exit 0} doesn't exit yet");
+    fresh_perl_is(
+        "$testblocks BEGIN { exit 0; }",
+        "begin\nunitcheck\ncheck\ninit\nend",
+        {},
+        "BEGIN{exit 0} doesn't exit yet"
+    );
 }
-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_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"
+);
+
 SKIP: {
     skip "VMS doesn't have the perl #2754 bug", 1 if $^O eq 'VMS';
-    fresh_perl_is("$testblocks UNITCHECK { exit 0; }", "begin\nunitcheck\ncheck\ninit\nmain\nend", {}, "UNITCHECK{exit 0} doesn't exit yet");
+    fresh_perl_is(
+        "$testblocks UNITCHECK { exit 0; }",
+        "begin\nunitcheck\ncheck\ninit\nmain\nend",
+        {},
+        "UNITCHECK{exit 0} doesn't exit yet"
+    );
 }
-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_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"
+);
+
 SKIP: {
     skip "VMS doesn't have the perl #2754 bug", 1 if $^O eq 'VMS';
-    fresh_perl_is("$testblocks CHECK { exit 0; }", "begin\nunitcheck\ncheck\ninit\nmain\nend", {}, "CHECK{exit 0} doesn't exit yet");
+    fresh_perl_is(
+        "$testblocks CHECK { exit 0; }",
+        "begin\nunitcheck\ncheck\ninit\nmain\nend",
+        {},
+        "CHECK{exit 0} doesn't exit yet"
+    );
 }
-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_is("$testblocks INIT { exit 0; }", "begin\nunitcheck\ncheck\ninit\nend", {}, "INIT{exit 0} should exit");
-fresh_perl_is("$testblocks INIT { exit 1; }", "begin\nunitcheck\ncheck\ninit\nend", {}, "INIT{exit 1} should exit");
-fresh_perl_like("$testblocks INIT { die; }", qr/\Abegin\nunitcheck\ncheck\ninit\nDied[^\n]*\.\nINIT failed[^\n]*\.\nend\z/, {}, "INIT{die} 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_is(
+    "$testblocks INIT { exit 0; }",
+    "begin\nunitcheck\ncheck\ninit\nend",
+    {},
+    "INIT{exit 0} should exit"
+);
+
+fresh_perl_is(
+    "$testblocks INIT { exit 1; }",
+    "begin\nunitcheck\ncheck\ninit\nend",
+    {},
+    "INIT{exit 1} should exit"
+);
+
+fresh_perl_like(
+    "$testblocks INIT { die; }",
+    qr/\Abegin\nunitcheck\ncheck\ninit\nDied[^\n]*\.\nINIT failed[^\n]*\.\nend\z/,
+    {},
+    "INIT{die} should exit"
+);
 
 TODO: {
     local $TODO = 'RT #2917: INIT{} in eval is wrongly considered too late';