Test to cover RT #125455.

Raku · Jun 23, 2015 · 1f667d1 · 1f667d1
1 parent 424a9a1
commit 1f667d1
Showing 1 changed file with 11 additions and 1 deletion.
diff --git a/S04-declarations/will.t b/S04-declarations/will.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-BEGIN plan 17;
+BEGIN plan 19;
 
 # L<S04/Phasers>
 
@@ -116,4 +116,14 @@ is $same3, "aebebebc", 'all for blocks get $_';
     is $seen, 42, 'block should not have executed';
 }
 
+# RT #125455
+{
+    my $did-we-leave = 0;
+    class A {
+        my $boo will leave { $did-we-leave = 1 };
+        is $did-we-leave, 0, 'will leave trait on class-scoped my variable not run yet';
+    }
+    is $did-we-leave, 1, 'will leave trait on class-scoped my variable ran';
+}
+
 # vim: ft=perl6