Permalink
Browse files

test for X::Signature::NameClash

  • Loading branch information...
1 parent 259bfe3 commit 840bfdaabc1d5eb19df5286c7a0a17f71e4fb9b8 @moritz moritz committed May 13, 2012
Showing with 1 addition and 0 deletions.
  1. +1 −0 S32-exceptions/misc.t
View
@@ -120,6 +120,7 @@ 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 'sub postbla:sym<foo>() { }', X::Syntax::Extension::Category, category => 'postbla';
+throws_like 'sub f(:in(:$in)) { }', X::Signature::NameClash, name => 'in';
throws_like 'my $foo does &Int', X::Does::TypeObject;
throws_like 'my $foo does &Int, &Bool', X::Does::TypeObject;
throws_like 'role R { }; 99 but R("wrong");', X::Role::Initialization;

0 comments on commit 840bfda

Please sign in to comment.