diff options
| author | Craig A. Berry <craigberry@mac.com> | 2012-10-21 09:33:53 -0500 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2012-10-21 09:33:53 -0500 |
| commit | 37fc255eccf5c09cc3b515968eece5a74f2260dc (patch) | |
| tree | d6c835dcb9263247eb417a3f18599fa6b8f74850 /dist | |
| parent | fad493ef34530a95afba46f7b4f788dde6400695 (diff) | |
| download | perl-37fc255eccf5c09cc3b515968eece5a74f2260dc.tar.gz | |
Proper skippage for sanity check in B::Deparse's core.t.
The check was being skipped when PERL_CORE was not defined or if
running on VMS, but the test count was not being updated, so it
would be wrong and cause the test to fail in these cases. So use
the standard skip facility to handle the skipping. Plus the test
works fine on VMS so go ahead and run it there as well.
Diffstat (limited to 'dist')
| -rw-r--r-- | dist/B-Deparse/t/core.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/dist/B-Deparse/t/core.t b/dist/B-Deparse/t/core.t index 8f4b6e5d2e..58540f8835 100644 --- a/dist/B-Deparse/t/core.t +++ b/dist/B-Deparse/t/core.t @@ -334,7 +334,9 @@ my %not_tested = map { $_ => 1} qw( # make sure we haven't missed any keywords, # and that we got the strength right. -if (defined $ENV{PERL_CORE} and $^O ne 'VMS') { +SKIP: +{ + skip "sanity checks when not PERL_CORE", 1 unless defined $ENV{PERL_CORE}; my $count = 0; my $file = '../../regen/keywords.pl'; my $pass = 1; |