This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
utf8cache.t: Skip only the XS-dependent test
[perl5.git] / t / op / utf8cache.t
index 83ad4e8..f8698c8 100644 (file)
@@ -5,13 +5,15 @@ BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
     require './test.pl';
-    skip_all_without_dynamic_extension('Devel::Peek');
 }
 
 use strict;
 
 plan(tests => 2);
 
+SKIP: {
+skip_without_dynamic_extension("Devel::Peek");
+
 my $pid = open CHILD, '-|';
 die "kablam: $!\n" unless defined $pid;
 unless ($pid) {
@@ -36,6 +38,8 @@ my $utf8magic = qr{ ^ \s+ MAGIC \s = .* \n
 
 unlike($_, qr{ $utf8magic $utf8magic }x);
 
+} # SKIP
+
 # With bad caching, this code used to go quadratic and take 10s of minutes.
 # The 'test' in this case is simply that it doesn't hang.