X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=t%2F030_roles%2Ffailing%2F022_role_composition_req_methods.t;h=38431533b3dc6c409ddc4c6948acd82663d3fc9d;hp=c0ff4f9571fc859ea23c1913e3f5da8d664cd8b9;hb=6cfa1e5e70616fb102915489c02d8347ffa912fb;hpb=4f9945f5a128e120049ce8a7a30cf469d1568b9b diff --git a/t/030_roles/failing/022_role_composition_req_methods.t b/t/030_roles/failing/022_role_composition_req_methods.t index c0ff4f9..3843153 100644 --- a/t/030_roles/failing/022_role_composition_req_methods.t +++ b/t/030_roles/failing/022_role_composition_req_methods.t @@ -11,20 +11,20 @@ use Mouse::Meta::Role::Composite; { package Role::Foo; - use Mouse::Role; + use Mouse::Role; requires 'foo'; - + package Role::Bar; use Mouse::Role; requires 'bar'; - + package Role::ProvidesFoo; - use Mouse::Role; + use Mouse::Role; sub foo { 'Role::ProvidesFoo::foo' } - + package Role::ProvidesBar; - use Mouse::Role; - sub bar { 'Role::ProvidesBar::bar' } + use Mouse::Role; + sub bar { 'Role::ProvidesBar::bar' } } # test simple requirement @@ -33,16 +33,16 @@ use Mouse::Meta::Role::Composite; roles => [ Role::Foo->meta, Role::Bar->meta, - ] + ] ); isa_ok($c, 'Mouse::Meta::Role::Composite'); - is($c->name, 'Role::Foo|Role::Bar', '... got the composite role name'); - + is($c->name, 'Role::Foo|Role::Bar', '... got the composite role name'); + lives_ok { Mouse::Meta::Role::Application::RoleSummation->new->apply($c); - } '... this succeeds as expected'; - + } '... this succeeds as expected'; + is_deeply( [ sort $c->get_required_method_list ], [ 'bar', 'foo' ], @@ -60,12 +60,12 @@ use Mouse::Meta::Role::Composite; ); isa_ok($c, 'Mouse::Meta::Role::Composite'); - is($c->name, 'Role::Foo|Role::ProvidesFoo', '... got the composite role name'); - - lives_ok { + is($c->name, 'Role::Foo|Role::ProvidesFoo', '... got the composite role name'); + + lives_ok { Mouse::Meta::Role::Application::RoleSummation->new->apply($c); - } '... this succeeds as expected'; - + } '... this succeeds as expected'; + is_deeply( [ sort $c->get_required_method_list ], [], @@ -79,17 +79,17 @@ use Mouse::Meta::Role::Composite; roles => [ Role::Foo->meta, Role::ProvidesFoo->meta, - Role::Bar->meta, + Role::Bar->meta, ] ); isa_ok($c, 'Mouse::Meta::Role::Composite'); - is($c->name, 'Role::Foo|Role::ProvidesFoo|Role::Bar', '... got the composite role name'); - + is($c->name, 'Role::Foo|Role::ProvidesFoo|Role::Bar', '... got the composite role name'); + lives_ok { Mouse::Meta::Role::Application::RoleSummation->new->apply($c); - } '... this succeeds as expected'; - + } '... this succeeds as expected'; + is_deeply( [ sort $c->get_required_method_list ], [ 'bar' ], @@ -103,18 +103,18 @@ use Mouse::Meta::Role::Composite; roles => [ Role::Foo->meta, Role::ProvidesFoo->meta, - Role::ProvidesBar->meta, - Role::Bar->meta, + Role::ProvidesBar->meta, + Role::Bar->meta, ] ); isa_ok($c, 'Mouse::Meta::Role::Composite'); - is($c->name, 'Role::Foo|Role::ProvidesFoo|Role::ProvidesBar|Role::Bar', '... got the composite role name'); - + is($c->name, 'Role::Foo|Role::ProvidesFoo|Role::ProvidesBar|Role::Bar', '... got the composite role name'); + lives_ok { Mouse::Meta::Role::Application::RoleSummation->new->apply($c); - } '... this succeeds as expected'; - + } '... this succeeds as expected'; + is_deeply( [ sort $c->get_required_method_list ], [ ],