test for X::Signature::NameClash

Raku · May 13, 2012 · 840bfda · 840bfda
1 parent 259bfe3
commit 840bfda
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/S32-exceptions/misc.t b/S32-exceptions/misc.t
@@ -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;