This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
reg_nocapture.t: Skip %+ tests under miniperl
authorFather Chrysostomos <sprout@cpan.org>
Sun, 4 Jan 2015 02:55:49 +0000 (18:55 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Sun, 4 Jan 2015 02:55:49 +0000 (18:55 -0800)
t/re/reg_nocapture.t

index 40c3080..f354cea 100644 (file)
@@ -44,8 +44,12 @@ is($1, 'a', "named capture allows $1 with /n");
 is($2, 'b', "named capture allows $2 with /n");
 is($3, undef, "(.*) didn't capture with /n");
 
-is($+{a}, 'a', "\$+{a} is correct");
-is($+{b}, 'b', "\$+{b} is correct");
+SKIP: {
+    skip "no %+ under miniperl", 2 if is_miniperl();
+    no strict 'refs';
+    is(${"+"}{a}, 'a', "\$+{a} is correct");
+    is(${"+"}{b}, 'b', "\$+{b} is correct");
+}
 
 is(qr/(what)/n,     '(?^n:(what))',
   'qr//n stringified is correct');