X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F030_roles%2F026_role_composition_method_mods.t;h=9de99b49c9cacb4df5c915a453c6c68776dc9029;hb=d03bd989b97597428b460d7f9a021e2931893fa0;hp=d83ee4e5997b5e9e84ed8b5f8e8d9e7f31204b7f;hpb=f6bee6fe1d579dc3d2ed2952cce9a1556040c8e5;p=gitmo%2FMoose.git diff --git a/t/030_roles/026_role_composition_method_mods.t b/t/030_roles/026_role_composition_method_mods.t index d83ee4e..9de99b4 100644 --- a/t/030_roles/026_role_composition_method_mods.t +++ b/t/030_roles/026_role_composition_method_mods.t @@ -14,16 +14,16 @@ use Moose::Meta::Role::Composite; use Moose::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 Moose::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 Moose::Role; @@ -60,11 +60,11 @@ 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_method_modifier_list('before') ], @@ -76,11 +76,11 @@ use Moose::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' - ); + ); }