Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

RT #73768, ~Any should warn

  • Loading branch information...
commit ed9af5158fb89001333b26cd7246cf1761b79f81 1 parent d5ac5a6
@moritz moritz authored
Showing with 11 additions and 1 deletion.
  1. +11 −1 S32-basics/warn.t
View
12 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"',
{
Please sign in to comment.
Something went wrong with that request. Please try again.