This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
handle bracket stack better in recdescent parsing
[perl5.git] / ext / XS-APItest / t / looprest.t
index 0881ca0..e37ef87 100644 (file)
@@ -1,7 +1,7 @@
 use warnings;
 use strict;
 
-use Test::More tests => 10;
+use Test::More tests => 14;
 
 BEGIN { $^H |= 0x20000; }
 
@@ -84,4 +84,31 @@ eval q{
 is $@, "";
 is $t, "aabbccdbca";
 
+$t = "";
+eval q{
+       use XS::APItest qw(looprest);
+       do {
+               { $t .= "a"; }
+               looprest
+               { $t .= "b"; }
+               last unless length($t) < 5;
+               { $t .= "c"; }
+       };
+       $t .= "d";
+};
+is $@, "";
+is $t, "abcbcbd";
+
+$t = "";
+eval q{
+       use XS::APItest qw(looprest);
+       { $t .= "a"; }
+       looprest
+       { $t .= "b"; }
+       last unless length($t) < 5;
+       { $t .= "c"; }
+};
+is $@, "";
+is $t, "abcbcb";
+
 1;