4 use Test::More tests => 11;
18 extends 'Role::Parent';
21 } qr/Role does not currently support 'extends'/;
65 } qr/Role does not currently support 'with'/;
81 confess "Mouse::Role exports confess";
83 } qr/^Mouse::Role exports confess/;
89 my $obj = bless {} => "Impromptu::Class";
90 ::is(blessed($obj), "Impromptu::Class");
97 with 'Role', 'Other::Role';
98 } qr/Mouse::Role only supports 'with' on individual roles at a time/;