X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F030_roles%2Ffailing%2F021_role_composite_exclusion.t;fp=t%2F030_roles%2Ffailing%2F021_role_composite_exclusion.t;h=ba4d3bc1d5739211f7098ef39ea43dbcedda3154;hb=6cfa1e5e70616fb102915489c02d8347ffa912fb;hp=4d0a8d30b2d0201ebcd0bf26c97f28bb0508bff5;hpb=4f9945f5a128e120049ce8a7a30cf469d1568b9b;p=gitmo%2FMouse.git diff --git a/t/030_roles/failing/021_role_composite_exclusion.t b/t/030_roles/failing/021_role_composite_exclusion.t index 4d0a8d3..ba4d3bc 100644 --- a/t/030_roles/failing/021_role_composite_exclusion.t +++ b/t/030_roles/failing/021_role_composite_exclusion.t @@ -12,21 +12,21 @@ use Mouse::Meta::Role::Composite; { package Role::Foo; use Mouse::Role; - + package Role::Bar; use Mouse::Role; - + package Role::ExcludesFoo; use Mouse::Role; excludes 'Role::Foo'; - + package Role::DoesExcludesFoo; use Mouse::Role; - with 'Role::ExcludesFoo'; - + with 'Role::ExcludesFoo'; + package Role::DoesFoo; use Mouse::Role; - with 'Role::Foo'; + with 'Role::Foo'; } ok(Role::ExcludesFoo->meta->excludes_role('Role::Foo'), '... got the right exclusions'); @@ -55,10 +55,10 @@ dies_ok { isa_ok($c, 'Mouse::Meta::Role::Composite'); is($c->name, 'Role::Foo|Role::Bar', '... got the composite role name'); - + lives_ok { Mouse::Meta::Role::Application::RoleSummation->new->apply($c); - } '... this lives as expected'; + } '... this lives as expected'; } # test no conflicts w/exclusion @@ -66,18 +66,18 @@ dies_ok { my $c = Mouse::Meta::Role::Composite->new( roles => [ Role::Bar->meta, - Role::ExcludesFoo->meta, + Role::ExcludesFoo->meta, ] ); isa_ok($c, 'Mouse::Meta::Role::Composite'); is($c->name, 'Role::Bar|Role::ExcludesFoo', '... got the composite role name'); - + lives_ok { Mouse::Meta::Role::Application::RoleSummation->new->apply($c); - } '... this lives as expected'; - - is_deeply([$c->get_excluded_roles_list], ['Role::Foo'], '... has excluded roles'); + } '... this lives as expected'; + + is_deeply([$c->get_excluded_roles_list], ['Role::Foo'], '... has excluded roles'); } @@ -91,15 +91,15 @@ dies_ok { ] ) ); - + } '... this fails as expected'; # test conflict with an "inherited" exclusion of an "inherited" role dies_ok { Mouse::Meta::Role::Application::RoleSummation->new->apply( - Mouse::Meta::Role::Composite->new( + Mouse::Meta::Role::Composite->new( roles => [ - Role::DoesFoo->meta, + Role::DoesFoo->meta, Role::DoesExcludesFoo->meta, ] )