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 / swaptwostmts.t
index c11d650..155ff62 100644 (file)
@@ -1,7 +1,7 @@
 use warnings;
 use strict;
 
-use Test::More tests => 22;
+use Test::More tests => 26;
 
 BEGIN { $^H |= 0x20000; }
 
@@ -146,6 +146,32 @@ $t = "";
 eval q{
        use XS::APItest qw(swaptwostmts);
        no warnings "void";
+       { $t .= "a"; }
+       swaptwostmts
+       if(1) { { $t .= "b"; } }
+       {};
+       { $t .= "d"; }
+};
+is $@, "";
+is $t, "abd";
+
+$t = "";
+eval q{
+       use XS::APItest qw(swaptwostmts);
+       no warnings "void";
+       { $t .= "a"; }
+       swaptwostmts
+       if(1) { { $t .= "b"; } }
+       [];
+       { $t .= "d"; }
+};
+is $@, "";
+is $t, "abd";
+
+$t = "";
+eval q{
+       use XS::APItest qw(swaptwostmts);
+       no warnings "void";
        "@{[ $t .= 'a' ]}";
        swaptwostmts
        if(1) { "@{[ $t .= 'b' ]}"; }