Permalink
Browse files

RT #73768, ~Any should warn

  • Loading branch information...
1 parent d5ac5a6 commit ed9af5158fb89001333b26cd7246cf1761b79f81 @moritz moritz committed Feb 3, 2012
Showing with 11 additions and 1 deletion.
  1. +11 −1 S32-basics/warn.t
View
@@ -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"',
{

0 comments on commit ed9af51

Please sign in to comment.