concat2.t: Under miniperl only skip one test
authorFather Chrysostomos <sprout@cpan.org>
Fri, 2 Nov 2012 12:59:31 +0000 (05:59 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Fri, 2 Nov 2012 12:59:31 +0000 (05:59 -0700)
t/op/concat2.t

index 5a9d22b..36b62bc 100644 (file)
@@ -9,17 +9,19 @@ BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
     require './test.pl';
-    skip_all_if_miniperl("no dynamic loading on miniperl, no Encode");
 }
 
 plan 2;
 
+SKIP: {
+skip_if_miniperl("no dynamic loading on miniperl, no Encode", 1);
 fresh_perl_is <<'end', "ok\n", {},
     use encoding 'utf8';
     map { "a" . $a } ((1)x5000);
     print "ok\n";
 end
  "concat does not lose its stack pointer after utf8 upgrade [perl #78674]";
+}
 
 # This test is in the file because overload.pm uses concatenation.
 { package o; use overload '""' => sub { $_[0][0] } }