t/op/blocks.t: consolidate VMS-skips together
authorDavid Mitchell <davem@iabyn.com>
Wed, 9 May 2018 12:49:14 +0000 (13:49 +0100)
committerDavid Mitchell <davem@iabyn.com>
Fri, 11 May 2018 07:37:20 +0000 (08:37 +0100)
Put the three tests skipped under VMS together into a single SKIP
block rather than 3 separate skips.

As well as being tidier, as a side effect, it makes 6 tests contiguous
that are shortly to be skipped under win32,

t/op/blocks.t

index cda9b42..522c6fa 100644 (file)
@@ -164,15 +164,30 @@ fresh_perl_is(
 );
 
 SKIP: {
-    skip "VMS doesn't have the perl #2754 bug", 1 if $^O eq 'VMS';
+    skip "VMS doesn't have the perl #2754 bug", 3 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 UNITCHECK { exit 0; }",
+        "begin\nunitcheck\ncheck\ninit\nmain\nend",
+        {},
+        "UNITCHECK{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 BEGIN { exit 1; }",
     "begin\nunitcheck\ncheck\nend",
@@ -187,16 +202,6 @@ fresh_perl_like(
     "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 1; }",
     "begin\nunitcheck\ncheck\nend",
@@ -211,15 +216,6 @@ fresh_perl_like(
     "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 1; }",