use warnings;
use Test::More;
-use Test::Fatal;
+use Test::Exception;
use Moose::Meta::Role::Application::RoleSummation;
use Moose::Meta::Role::Composite;
is($c->name, 'Role::Foo|Role::Bar', '... got the composite role name');
- ok ! exception {
+ lives_ok {
Moose::Meta::Role::Application::RoleSummation->new->apply($c);
- }, '... this succeeds as expected';
+ } '... this succeeds as expected';
is_deeply(
[ sort $c->get_required_method_list ],
is($c->name, 'Role::Foo|Role::ProvidesFoo', '... got the composite role name');
- ok ! exception {
+ lives_ok {
Moose::Meta::Role::Application::RoleSummation->new->apply($c);
- }, '... this succeeds as expected';
+ } '... this succeeds as expected';
is_deeply(
[ sort $c->get_required_method_list ],
is($c->name, 'Role::Foo|Role::ProvidesFoo|Role::Bar', '... got the composite role name');
- ok ! exception {
+ lives_ok {
Moose::Meta::Role::Application::RoleSummation->new->apply($c);
- }, '... this succeeds as expected';
+ } '... this succeeds as expected';
is_deeply(
[ sort $c->get_required_method_list ],
is($c->name, 'Role::Foo|Role::ProvidesFoo|Role::ProvidesBar|Role::Bar', '... got the composite role name');
- ok ! exception {
+ lives_ok {
Moose::Meta::Role::Application::RoleSummation->new->apply($c);
- }, '... this succeeds as expected';
+ } '... this succeeds as expected';
is_deeply(
[ sort $c->get_required_method_list ],