Tests for RT #125642.

Raku · Jul 20, 2015 · 9530cf1 · 9530cf1
1 parent 24f0eaf
commit 9530cf1
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/S32-exceptions/misc.t b/S32-exceptions/misc.t
@@ -3,7 +3,7 @@ use Test;
 use lib "t/spec/packages";
 use Test::Util;
 
-plan 328;
+plan 332;
 
 throws-like '42 +', X::AdHoc, "missing rhs of infix", message => rx/term/;
 
@@ -711,4 +711,10 @@ throws-like 'my class C { }; sub foo(C of Int)', X::NotParametric;
         'The gist of exception with no message method mentions the type';
 }
 
+# RT #125642
+throws-like 'sub foo() returns Bar { }', X::InvalidType, typename => 'Bar';
+throws-like 'my class C hides Baz { }', X::InvalidType, typename => 'Baz';
+throws-like 'my class C does InNoWayExist { }', X::InvalidType, typename => 'InNoWayExist';
+throws-like 'sub foo() returns !!!wtf??? { }', X::Syntax::Malformed, what => 'trait';
+
 # vim: ft=perl6