X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=t%2F030_roles%2Ffailing%2F020_role_composite.t;h=49ba0a33e0191efc15853a42a183c5e421591a21;hp=788b35286f6b1ac4e55a485b2640bf155bd0d231;hb=6cfa1e5e70616fb102915489c02d8347ffa912fb;hpb=4f9945f5a128e120049ce8a7a30cf469d1568b9b diff --git a/t/030_roles/failing/020_role_composite.t b/t/030_roles/failing/020_role_composite.t index 788b352..49ba0a3 100644 --- a/t/030_roles/failing/020_role_composite.t +++ b/t/030_roles/failing/020_role_composite.t @@ -12,15 +12,15 @@ use Mouse::Meta::Role::Composite; { package Role::Foo; use Mouse::Role; - + package Role::Bar; use Mouse::Role; package Role::Baz; - use Mouse::Role; - + use Mouse::Role; + package Role::Gorch; - use Mouse::Role; + use Mouse::Role; } { @@ -28,7 +28,7 @@ use Mouse::Meta::Role::Composite; roles => [ Role::Foo->meta, Role::Bar->meta, - Role::Baz->meta, + Role::Baz->meta, ] ); isa_ok($c, 'Mouse::Meta::Role::Composite'); @@ -38,22 +38,22 @@ use Mouse::Meta::Role::Composite; is_deeply($c->get_roles, [ Role::Foo->meta, Role::Bar->meta, - Role::Baz->meta, + Role::Baz->meta, ], '... got the right roles'); - + ok($c->does_role($_), '... our composite does the role ' . $_) for qw( Role::Foo Role::Bar - Role::Baz + Role::Baz ); - + lives_ok { Mouse::Meta::Role::Application::RoleSummation->new->apply($c); - } '... this composed okay'; - + } '... this composed okay'; + ##... now nest 'em - { + { my $c2 = Mouse::Meta::Role::Composite->new( roles => [ $c, @@ -66,15 +66,15 @@ use Mouse::Meta::Role::Composite; is_deeply($c2->get_roles, [ $c, - Role::Gorch->meta, + Role::Gorch->meta, ], '... got the right roles'); ok($c2->does_role($_), '... our composite does the role ' . $_) for qw( Role::Foo Role::Bar - Role::Baz - Role::Gorch - ); + Role::Baz + Role::Gorch + ); } }