Skip to content
Browse files

RT #76742, added test for 'does with type object'

  • Loading branch information...
1 parent 49868a5 commit e87efa1901d3be3ef0d233c3af246f249fd2ad3d @FROGGS FROGGS committed Nov 25, 2012
Showing with 2 additions and 0 deletions.
  1. +2 −0 S32-exceptions/misc.t
View
2 S32-exceptions/misc.t
@@ -112,6 +112,8 @@ throws_like 'my @a = 1, => 2', X::Syntax::InfixInTermPosition, infix => '=>';
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;
+# RT #76742
+throws_like 'Bool does role { method Str() { $.perl } };', X::Does::TypeObject;
throws_like 'my role R { }; 99 but R("wrong");', X::Role::Initialization;
throws_like 'my role R { has $.x; has $.y }; 99 but R("wrong");', X::Role::Initialization;
throws_like 'my role R { }; 99 does R("wrong");', X::Role::Initialization;

0 comments on commit e87efa1

Please sign in to comment.
Something went wrong with that request. Please try again.