Add test for RT #76946

Raku · Oct 21, 2012 · 33c0502 · 33c0502
1 parent 970a119
commit 33c0502
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/integration/weird-errors.t b/integration/weird-errors.t
@@ -3,7 +3,7 @@ use Test;
 BEGIN { @*INC.push: 't/spec/packages' };
 use Test::Util;
 
-plan 6;
+plan 7;
 
 # this used to segfault in rakudo
 is_run(
@@ -38,3 +38,6 @@ eval_dies_ok 'time(1, 2, 3)', 'time() with arguments dies';
 #?niecza todo
 lives_ok { 1.^methods>>.sort }, 'can use >>.method on result of introspection';
 
+# RT #76946
+lives_ok { Any .= (); CATCH { when X::AdHoc {1} } }, 'Typed, non-internal exception';
+