X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F030_roles%2Ffailing%2F023_role_composition_attributes.t;h=97854630d5290495f63672a660c69baf12cd3a41;hb=6cfa1e5e70616fb102915489c02d8347ffa912fb;hp=69852dcf4d926d208bdce4600b21cc2a96276c71;hpb=4f9945f5a128e120049ce8a7a30cf469d1568b9b;p=gitmo%2FMouse.git diff --git a/t/030_roles/failing/023_role_composition_attributes.t b/t/030_roles/failing/023_role_composition_attributes.t index 69852dc..9785463 100644 --- a/t/030_roles/failing/023_role_composition_attributes.t +++ b/t/030_roles/failing/023_role_composition_attributes.t @@ -11,23 +11,23 @@ use Mouse::Meta::Role::Composite; { package Role::Foo; - use Mouse::Role; + use Mouse::Role; has 'foo' => (is => 'rw'); - + package Role::Bar; use Mouse::Role; has 'bar' => (is => 'rw'); - + package Role::FooConflict; - use Mouse::Role; + use Mouse::Role; has 'foo' => (is => 'rw'); - + package Role::BarConflict; use Mouse::Role; has 'bar' => (is => 'rw'); - + package Role::AnotherFooConflict; - use Mouse::Role; + use Mouse::Role; with 'Role::FooConflict'; } @@ -41,12 +41,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_attribute_list ], [ 'bar', 'foo' ], @@ -72,9 +72,9 @@ dies_ok { Mouse::Meta::Role::Composite->new( roles => [ Role::Foo->meta, - Role::Bar->meta, + Role::Bar->meta, Role::FooConflict->meta, - Role::BarConflict->meta, + Role::BarConflict->meta, ] ) );