X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F030_roles%2Ffailing%2F026_role_composition_method_mods.t;h=909c1fffd45b96a46a6dc3a339333b0fa396efc0;hb=92583b3320b6ed8b4673fc94e68af64b3cf106e3;hp=86816f3914e713435c1cf11106e138947833c474;hpb=6719984210754e8d012ae678536f194c35000823;p=gitmo%2FMouse.git diff --git a/t/030_roles/failing/026_role_composition_method_mods.t b/t/030_roles/failing/026_role_composition_method_mods.t index 86816f3..909c1ff 100644 --- a/t/030_roles/failing/026_role_composition_method_mods.t +++ b/t/030_roles/failing/026_role_composition_method_mods.t @@ -14,16 +14,16 @@ use Mouse::Meta::Role::Composite; use Mouse::Role; before foo => sub { 'Role::Foo::foo' }; - around foo => sub { 'Role::Foo::foo' }; - after foo => sub { 'Role::Foo::foo' }; + around foo => sub { 'Role::Foo::foo' }; + after foo => sub { 'Role::Foo::foo' }; around baz => sub { [ 'Role::Foo', @{shift->(@_)} ] }; package Role::Bar; use Mouse::Role; before bar => sub { 'Role::Bar::bar' }; - around bar => sub { 'Role::Bar::bar' }; - after bar => sub { 'Role::Bar::bar' }; + around bar => sub { 'Role::Bar::bar' }; + after bar => sub { 'Role::Bar::bar' }; package Role::Baz; use Mouse::Role; @@ -60,11 +60,11 @@ 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_modifier_list('before') ], @@ -76,11 +76,11 @@ use Mouse::Meta::Role::Composite; [ sort $c->get_method_modifier_list('after') ], [ 'bar', 'foo' ], '... got the right list of methods' - ); + ); is_deeply( [ sort $c->get_method_modifier_list('around') ], [ 'bar', 'baz', 'foo' ], '... got the right list of methods' - ); + ); }