X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=t%2F030_roles%2Ffailing%2F025_role_composition_override.t;fp=t%2F030_roles%2Ffailing%2F025_role_composition_override.t;h=0000000000000000000000000000000000000000;hp=4396ce5b543ea446cda85fa9b7f65743449a1168;hb=c47cf41554416ee1828eab17d31342a53aaa0839;hpb=9864f0e4ba233c5f30ad6dc7c484ced43d883d27 diff --git a/t/030_roles/failing/025_role_composition_override.t b/t/030_roles/failing/025_role_composition_override.t deleted file mode 100644 index 4396ce5..0000000 --- a/t/030_roles/failing/025_role_composition_override.t +++ /dev/null @@ -1,112 +0,0 @@ -#!/usr/bin/perl - -use strict; -use warnings; - -use Test::More tests => 8; -use Test::Exception; - -use Mouse::Meta::Role::Application::RoleSummation; -use Mouse::Meta::Role::Composite; - -{ - package Role::Foo; - use Mouse::Role; - - override foo => sub { 'Role::Foo::foo' }; - - package Role::Bar; - use Mouse::Role; - - override bar => sub { 'Role::Bar::bar' }; - - package Role::FooConflict; - use Mouse::Role; - - override foo => sub { 'Role::FooConflict::foo' }; - - package Role::FooMethodConflict; - use Mouse::Role; - - sub foo { 'Role::FooConflict::foo' } - - package Role::BarMethodConflict; - use Mouse::Role; - - sub bar { 'Role::BarConflict::bar' } -} - -# test simple overrides -{ - my $c = Mouse::Meta::Role::Composite->new( - 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'); - - lives_ok { - Mouse::Meta::Role::Application::RoleSummation->new->apply($c); - } '... this lives ok'; - - is_deeply( - [ sort $c->get_method_modifier_list('override') ], - [ 'bar', 'foo' ], - '... got the right list of methods' - ); -} - -# test simple overrides w/ conflicts -dies_ok { - Mouse::Meta::Role::Application::RoleSummation->new->apply( - Mouse::Meta::Role::Composite->new( - roles => [ - Role::Foo->meta, - Role::FooConflict->meta, - ] - ) - ); -} '... this fails as expected'; - -# test simple overrides w/ conflicts -dies_ok { - Mouse::Meta::Role::Application::RoleSummation->new->apply( - Mouse::Meta::Role::Composite->new( - roles => [ - Role::Foo->meta, - Role::FooMethodConflict->meta, - ] - ) - ); -} '... this fails as expected'; - - -# test simple overrides w/ conflicts -dies_ok { - Mouse::Meta::Role::Application::RoleSummation->new->apply( - Mouse::Meta::Role::Composite->new( - roles => [ - Role::Foo->meta, - Role::Bar->meta, - Role::FooConflict->meta, - ] - ) - ); -} '... this fails as expected'; - - -# test simple overrides w/ conflicts -dies_ok { - Mouse::Meta::Role::Application::RoleSummation->new->apply( - Mouse::Meta::Role::Composite->new( - roles => [ - Role::Foo->meta, - Role::Bar->meta, - Role::FooMethodConflict->meta, - ] - ) - ); -} '... this fails as expected';