4 use Test::More tests => 11;
18 extends 'Role::Parent';
21 } qr/Roles do not currently support 'extends'/;
74 local our $TODO = "Mouse::Role does not currently support 'excludes'";
75 ::ok(!$@, "excludes");
84 confess "Mouse::Role exports confess";
86 } qr/^Mouse::Role exports confess/;
92 my $obj = bless {} => "Impromptu::Class";
93 ::is(blessed($obj), "Impromptu::Class");
101 with 'Role', 'Other::Role';
102 } qr/Mouse::Role only supports 'with' on individual roles at a time/;