X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F030_roles%2F023_role_composition_attributes.t;h=0086435dc79945f3d0475bf769d5e94743a5a53b;hb=d03bd989b97597428b460d7f9a021e2931893fa0;hp=b0e7ad2af7e5695e58a6f7583c582335ed67043c;hpb=e606ae5f848070d889472329819c95f5ba763ca3;p=gitmo%2FMoose.git diff --git a/t/030_roles/023_role_composition_attributes.t b/t/030_roles/023_role_composition_attributes.t index b0e7ad2..0086435 100644 --- a/t/030_roles/023_role_composition_attributes.t +++ b/t/030_roles/023_role_composition_attributes.t @@ -11,23 +11,23 @@ use Moose::Meta::Role::Composite; { package Role::Foo; - use Moose::Role; + use Moose::Role; has 'foo' => (is => 'rw'); - + package Role::Bar; use Moose::Role; has 'bar' => (is => 'rw'); - + package Role::FooConflict; - use Moose::Role; + use Moose::Role; has 'foo' => (is => 'rw'); - + package Role::BarConflict; use Moose::Role; has 'bar' => (is => 'rw'); - + package Role::AnotherFooConflict; - use Moose::Role; + use Moose::Role; with 'Role::FooConflict'; } @@ -41,12 +41,12 @@ use Moose::Meta::Role::Composite; ); isa_ok($c, 'Moose::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 { Moose::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 { Moose::Meta::Role::Composite->new( roles => [ Role::Foo->meta, - Role::Bar->meta, + Role::Bar->meta, Role::FooConflict->meta, - Role::BarConflict->meta, + Role::BarConflict->meta, ] ) );