Test to cover RT #129921.

Raku · Oct 26, 2016 · 1f553c2 · 1f553c2
1 parent 78e4df6
commit 1f553c2
Showing 1 changed file with 12 additions and 1 deletion.
diff --git a/S32-exceptions/misc.t b/S32-exceptions/misc.t
@@ -5,7 +5,7 @@ use lib "t/spec/packages";
 use Test;
 use Test::Util;
 
-plan 425;
+plan 426;
 
 throws-like '42 +', Exception, "missing rhs of infix", message => rx/term/;
 
@@ -945,4 +945,15 @@ throws-like 'sub foo(@array ($first, @rest)) { say @rest }; foo <1 2 3>;',
     }}
 }
 
+# RT #129921
+{
+    my $warned;
+    {
+        EVAL 'my $!a';
+        CONTROL { when CX::Warn { $warned = True; .resume } }
+        CATCH { default { } }
+    }
+    nok $warned, 'No warning when producing error for "my $!a"';
+}
+
 # vim: ft=perl6