4 use Test::More tests => 12;
5 use Mouse::Util ':test';
18 extends 'Role::Parent';
21 } qr/Roles do not support 'extends'/;
65 } qr/Mouse::Role does not currently support 'with'/;
74 } qr/Mouse::Role does not currently support 'requires'/;
83 } qr/Mouse::Role does not currently support 'excludes'/;
89 confess "Mouse::Role exports confess";
91 } qr/^Mouse::Role exports confess/;
97 my $obj = bless {} => "Impromptu::Class";
98 ::is(blessed($obj), "Impromptu::Class");
105 with 'Role', 'Other::Role';
106 } qr/Mouse::Role only supports 'with' on individual roles at a time/;