X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F030_roles%2Ffailing%2F024_role_composition_methods.t;h=2f60d0db646c7eb09b1cee922a8d9d2f2c8a1b53;hb=85a74fcf70600193f68dca0ca705bcf01e937d69;hp=355e56b1f89777000d16a2356f424197556faee0;hpb=6719984210754e8d012ae678536f194c35000823;p=gitmo%2FMouse.git diff --git a/t/030_roles/failing/024_role_composition_methods.t b/t/030_roles/failing/024_role_composition_methods.t index 355e56b..2f60d0d 100644 --- a/t/030_roles/failing/024_role_composition_methods.t +++ b/t/030_roles/failing/024_role_composition_methods.t @@ -12,26 +12,26 @@ use Mouse::Meta::Role::Composite; { package Role::Foo; use Mouse::Role; - - sub foo { 'Role::Foo::foo' } - + + sub foo { 'Role::Foo::foo' } + package Role::Bar; use Mouse::Role; sub bar { 'Role::Bar::bar' } - + package Role::FooConflict; - use Mouse::Role; - - sub foo { 'Role::FooConflict::foo' } - + use Mouse::Role; + + sub foo { 'Role::FooConflict::foo' } + package Role::BarConflict; use Mouse::Role; - + sub bar { 'Role::BarConflict::bar' } - + package Role::AnotherFooConflict; - use Mouse::Role; + use Mouse::Role; with 'Role::FooConflict'; sub baz { 'Role::AnotherFooConflict::baz' } @@ -47,12 +47,12 @@ use Mouse::Meta::Role::Composite; ); 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_method_list ], [ 'bar', 'foo' ], @@ -70,23 +70,23 @@ use Mouse::Meta::Role::Composite; ); isa_ok($c, 'Mouse::Meta::Role::Composite'); - is($c->name, 'Role::Foo|Role::FooConflict', '... got the composite role name'); - + is($c->name, 'Role::Foo|Role::FooConflict', '... 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_method_list ], [], '... got the right list of methods' - ); - + ); + is_deeply( [ sort $c->get_required_method_list ], [ 'foo' ], '... got the right list of required methods' - ); + ); } # test complex conflict @@ -94,14 +94,14 @@ use Mouse::Meta::Role::Composite; my $c = Mouse::Meta::Role::Composite->new( roles => [ Role::Foo->meta, - Role::Bar->meta, + Role::Bar->meta, Role::FooConflict->meta, - Role::BarConflict->meta, + Role::BarConflict->meta, ] ); isa_ok($c, 'Mouse::Meta::Role::Composite'); - is($c->name, 'Role::Foo|Role::Bar|Role::FooConflict|Role::BarConflict', '... got the composite role name'); + is($c->name, 'Role::Foo|Role::Bar|Role::FooConflict|Role::BarConflict', '... got the composite role name'); lives_ok { Mouse::Meta::Role::Application::RoleSummation->new->apply($c); @@ -111,13 +111,13 @@ use Mouse::Meta::Role::Composite; [ sort $c->get_method_list ], [], '... got the right list of methods' - ); - + ); + is_deeply( [ sort $c->get_required_method_list ], [ 'bar', 'foo' ], '... got the right list of required methods' - ); + ); } # test simple conflict @@ -130,22 +130,22 @@ use Mouse::Meta::Role::Composite; ); isa_ok($c, 'Mouse::Meta::Role::Composite'); - is($c->name, 'Role::Foo|Role::AnotherFooConflict', '... got the composite role name'); - + is($c->name, 'Role::Foo|Role::AnotherFooConflict', '... 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_method_list ], [ 'baz' ], '... got the right list of methods' - ); - + ); + is_deeply( [ sort $c->get_required_method_list ], [ 'foo' ], '... got the right list of required methods' - ); + ); }