diff options
author | David Mitchell <davem@iabyn.com> | 2018-05-09 13:49:14 +0100 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2018-05-11 08:37:20 +0100 |
commit | 21e22e9eed0096c170cdd5eb23d7fae995620591 (patch) | |
tree | 920424ddb95f651f3ad2a6aa4ada51c6dc827da5 | |
parent | 0d18e3dc7f3c6651b74dcaf1f7799d9b210ec1e5 (diff) | |
download | perl-21e22e9eed0096c170cdd5eb23d7fae995620591.tar.gz |
t/op/blocks.t: consolidate VMS-skips together
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,
-rw-r--r-- | t/op/blocks.t | 36 |
1 files changed, 16 insertions, 20 deletions
diff --git a/t/op/blocks.t b/t/op/blocks.t index cda9b42df6..522c6fa90b 100644 --- a/t/op/blocks.t +++ b/t/op/blocks.t @@ -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; }", |