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

Raku · Mar 29, 2012 · 296a529 · 296a529
1 parent c17cdc6
commit 296a529
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/S32-exceptions/misc.t b/S32-exceptions/misc.t
@@ -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',