This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Proper skippage for sanity check in B::Deparse's core.t.
authorCraig A. Berry <craigberry@mac.com>
Sun, 21 Oct 2012 14:33:53 +0000 (09:33 -0500)
committerCraig A. Berry <craigberry@mac.com>
Sun, 21 Oct 2012 14:33:53 +0000 (09:33 -0500)
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.

dist/B-Deparse/t/core.t

index 8f4b6e5..58540f8 100644 (file)
@@ -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;