RT #73768, ~Any should warn

Raku · Feb 3, 2012 · ed9af51 · ed9af51
1 parent d5ac5a6
commit ed9af51
Showing 1 changed file with 11 additions and 1 deletion.
diff --git a/S32-basics/warn.t b/S32-basics/warn.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 6;
+plan 7;
 
 BEGIN { @*INC.push('t/spec/packages') };
 
@@ -26,6 +26,16 @@ use Test::Util;
     ok $caught, 'CONTROL catches exceptions'
 }
 
+# RT #73768
+{
+    my $caught = 0;
+    {
+        CONTROL { default { $caught = 1 } };
+        ~Any
+    }
+    ok $caught, 'Stringifying Any warns';
+}
+
 #?niecza todo
 is_run 'use v6; warn; say "alive"',
     {