Test 'use MONKEY-TYPING' acts lexically.

Raku · Apr 16, 2015 · 0251db6 · 0251db6
1 parent 7d91cd7
commit 0251db6
Showing 1 changed file with 3 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 302;
+plan 303;
 
 throws_like '42 +', X::AdHoc, "missing rhs of infix", message => rx/term/;
 
@@ -124,6 +124,8 @@ throws_like '@a', X::Undeclared, symbol => '@a';
 # RT #115396
 throws_like '"@a[]"', X::Undeclared, symbol => '@a';
 throws_like 'augment class Any { }', X::Syntax::Augment::WithoutMonkeyTyping;
+throws_like '{ use MONKEY-TYPING; }; augment class Any { }', X::Syntax::Augment::WithoutMonkeyTyping,
+    'MONKEY-TYPING applies lexically';
 throws_like 'use MONKEY-TYPING; augment role Positional { }', X::Syntax::Augment::Illegal;
 throws_like 'use MONKEY-TYPING; enum Weekday <Mon Tue>; augment class Weekday { }', X::Syntax::Augment::Illegal;
 throws_like 'sub postbla:sym<foo>() { }', X::Syntax::Extension::Category, category => 'postbla';