9 use Moose::Meta::Role::Application::RoleSummation;
10 use Moose::Meta::Role::Composite;
27 my $c = Moose::Meta::Role::Composite->new(
34 isa_ok($c, 'Moose::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 Moose::Meta::Role::Application::RoleSummation->new->apply($c);
53 }, undef, '... this composed okay' );
57 my $c2 = Moose::Meta::Role::Composite->new(
63 isa_ok($c2, 'Moose::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 ' . $_)