X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F030_roles%2Ffailing%2F022_role_composition_req_methods.t;h=38431533b3dc6c409ddc4c6948acd82663d3fc9d;hb=9864f0e4ba233c5f30ad6dc7c484ced43d883d27;hp=c0ff4f9571fc859ea23c1913e3f5da8d664cd8b9;hpb=6719984210754e8d012ae678536f194c35000823;p=gitmo%2FMouse.git 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 ], [ ],