6 use Test::More no_plan => 1;
11 use_ok('Moose::Meta::Role::Application::RoleSummation');
12 use_ok('Moose::Meta::Role::Composite');
30 my $c = Moose::Meta::Role::Composite->new(
37 isa_ok($c, 'Moose::Meta::Role::Composite');
39 is($c->name, 'Role::Foo|Role::Bar|Role::Baz', '... got the composite role name');
41 is_deeply($c->get_roles, [
45 ], '... got the right roles');
47 ok($c->does_role($_), '... our composite does the role ' . $_)
55 Moose::Meta::Role::Application::RoleSummation->new->apply($c);
56 } '... this composed okay';
60 my $c2 = Moose::Meta::Role::Composite->new(
66 isa_ok($c2, 'Moose::Meta::Role::Composite');
68 is($c2->name, 'Role::Foo|Role::Bar|Role::Baz|Role::Gorch', '... got the composite role name');
70 is_deeply($c2->get_roles, [
73 ], '... got the right roles');
75 ok($c2->does_role($_), '... our composite does the role ' . $_)