Permalink
Browse files

Update augment exception test and add another one.

New test covers RT#112956.
  • Loading branch information...
1 parent 44024a8 commit 6e76108a7ce0ec07610f7aba1be192608a9799ba @jnthn jnthn committed Mar 8, 2013
Showing with 2 additions and 1 deletion.
  1. +2 −1 S32-exceptions/misc.t
View
3 S32-exceptions/misc.t
@@ -113,7 +113,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 role Positional { }', X::Syntax::Augment::Role;
+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';
# RT #83992
throws_like 'my @a = 1, => 2', X::Syntax::InfixInTermPosition, infix => '=>';

0 comments on commit 6e76108

Please sign in to comment.