6 use Test::More tests => 14;
9 use Mouse::Meta::Role::Application::RoleSummation;
10 use Mouse::Meta::Role::Composite;
27 my $c = Mouse::Meta::Role::Composite->new(
34 isa_ok($c, 'Mouse::Meta::Role::Composite');
36 is($c->name, 'Role::Foo|Role::Bar|Role::Baz', '... got the composite role name');
38 is_deeply($c->get_roles, [
42 ], '... got the right roles');
44 ok($c->does_role($_), '... our composite does the role ' . $_)
52 Mouse::Meta::Role::Application::RoleSummation->new->apply($c);
53 } '... this composed okay';
57 my $c2 = Mouse::Meta::Role::Composite->new(
63 isa_ok($c2, 'Mouse::Meta::Role::Composite');
65 is($c2->name, 'Role::Foo|Role::Bar|Role::Baz|Role::Gorch', '... got the composite role name');
67 is_deeply($c2->get_roles, [
70 ], '... got the right roles');
72 ok($c2->does_role($_), '... our composite does the role ' . $_)