Permalink
Browse files

add test for RT #115998

  • Loading branch information...
1 parent 7629622 commit 8c7a1910d07211ee45ef776345f761e34d441471 @coke coke committed Mar 29, 2013
Showing with 8 additions and 1 deletion.
  1. +8 −1 S04-phasers/enter-leave.t
View
9 S04-phasers/enter-leave.t
@@ -2,7 +2,7 @@ use v6;
use Test;
-plan 20;
+plan 21;
# L<S04/Phasers/ENTER "at every block entry time">
# L<S04/Phasers/LEAVE "at every block exit time">
@@ -206,4 +206,11 @@ plan 20;
ok($a == 1 && $b == 2, "LEAVE fires in a multi sub");
}
+# RT #115998
+{
+ my $x = 0;
+ for 1..10 { LEAVE { $x++ }; next }
+ is $x, 10, "next triggers LEAVE";
+}
+
# vim: ft=perl6

0 comments on commit 8c7a191

Please sign in to comment.