Permalink
Browse files

add tests for RT #113548

  • Loading branch information...
1 parent 1afab0c commit 8f169962a03139a0de4e54769b7ab4209d74eaf7 @coke coke committed Mar 29, 2013
Showing with 9 additions and 1 deletion.
  1. +9 −1 S04-phasers/enter-leave.t
View
10 S04-phasers/enter-leave.t
@@ -2,7 +2,7 @@ use v6;
use Test;
-plan 19;
+plan 20;
# L<S04/Phasers/ENTER "at every block entry time">
# L<S04/Phasers/LEAVE "at every block exit time">
@@ -198,4 +198,12 @@ plan 19;
is $str, '21', 'die doesn\'t abort LEAVE queue';
}
+# RT #113548
+{
+ my $a = 0;
+ my $b = 0;
+ multi sub rt113548() { $a = 1; LEAVE $b = 2; }; rt113548;
+ ok($a == 1 && $b == 2, "LEAVE fires in a multi sub");
+}
+
# vim: ft=perl6

0 comments on commit 8f16996

Please sign in to comment.