Permalink
Browse files

test for X::Does::TypeObject raising for 'does' operator.

  • Loading branch information...
timo committed Mar 29, 2012
1 parent c17cdc6 commit 296a529c710c580d064ae0282b64545a7a21a3a2
Showing with 2 additions and 0 deletions.
  1. +2 −0 S32-exceptions/misc.t
View
@@ -115,6 +115,8 @@ throws_like 'my $::("foo")', X::Syntax::Variable::IndirectDeclaration;
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 'my $foo does &Int', X::Does::TypeObject;
+throws_like 'my $foo does &Int, &Bool', X::Does::TypeObject;
throws_like 'sub f($a?, $b) { }', X::Parameter::WrongOrder,
misplaced => 'required',

0 comments on commit 296a529

Please sign in to comment.