6 use Test::More no_plan => 1;
11 use_ok('Moose::Meta::Role::Application::RoleSummation');
12 use_ok('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 } '... this composed okay';