);
isa_ok($c, 'Moose::Meta::Role::Composite');
- is($c->name, 'Role::Foo|Role::Bar', '... got the composite role name');
+ is($c->name, 'Role::Foo|Role::Bar', 'got the composite role name');
lives_ok {
Moose::Meta::Role::Application::RoleSummation->new->apply($c);
- } '... this succeeds as expected';
+ } 'this succeeds as expected';
is_deeply(
[ sort $c->get_method_list ],
[ 'bar', 'foo' ],
- '... got the right list of methods'
+ 'got the right list of methods'
);
}
);
isa_ok($c, 'Moose::Meta::Role::Composite');
- is($c->name, 'Role::Foo|Role::FooConflict', '... got the composite role name');
+ is($c->name, 'Role::Foo|Role::FooConflict', 'got the composite role name');
lives_ok {
Moose::Meta::Role::Application::RoleSummation->new->apply($c);
- } '... this succeeds as expected';
+ } 'this succeeds as expected';
is_deeply(
[ sort $c->get_method_list ],
[],
- '... got the right list of methods'
+ 'got the right list of methods'
);
is_deeply(
[ sort $c->get_required_method_list ],
[ 'foo' ],
- '... got the right list of required methods'
+ 'got the right list of required methods'
);
}
);
isa_ok($c, 'Moose::Meta::Role::Composite');
- is($c->name, 'Role::Foo|Role::Bar|Role::FooConflict|Role::BarConflict', '... got the composite role name');
+ is($c->name, 'Role::Foo|Role::Bar|Role::FooConflict|Role::BarConflict', 'got the composite role name');
lives_ok {
Moose::Meta::Role::Application::RoleSummation->new->apply($c);
- } '... this succeeds as expected';
+ } 'this succeeds as expected';
is_deeply(
[ sort $c->get_method_list ],
[],
- '... got the right list of methods'
+ 'got the right list of methods'
);
is_deeply(
[ sort $c->get_required_method_list ],
[ 'bar', 'foo' ],
- '... got the right list of required methods'
+ 'got the right list of required methods'
);
}
);
isa_ok($c, 'Moose::Meta::Role::Composite');
- is($c->name, 'Role::Foo|Role::AnotherFooConflict', '... got the composite role name');
+ is($c->name, 'Role::Foo|Role::AnotherFooConflict', 'got the composite role name');
lives_ok {
Moose::Meta::Role::Application::RoleSummation->new->apply($c);
- } '... this succeeds as expected';
+ } 'this succeeds as expected';
is_deeply(
[ sort $c->get_method_list ],
[ 'baz' ],
- '... got the right list of methods'
+ 'got the right list of methods'
);
is_deeply(
[ sort $c->get_required_method_list ],
[ 'foo' ],
- '... got the right list of required methods'
+ 'got the right list of required methods'
);
}