Test to cover RT #125228.

Raku · Jun 23, 2015 · b30e373 · b30e373
1 parent 1f667d1
commit b30e373
Showing 1 changed file with 4 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 309;
+plan 310;
 
 throws-like '42 +', X::AdHoc, "missing rhs of infix", message => rx/term/;
 
@@ -669,4 +669,7 @@ throws-like 'multi sub infix:<::=>(\a, \b) { }', X::Syntax::Extension::SpecialFo
 # RT #125441
 throws-like 'enum Error ( Metadata => -20); class Metadata { }', X::Redeclaration;
 
+# RT #125228
+throws-like 'sub foo() is export(WTF) { }', X::Undeclared::Symbols;
+
 # vim: ft=perl6