use warnings;
use Test::More;
-use Test::Exception;
+use Test::Fatal;
use Moose::Meta::Role::Application::RoleSummation;
use Moose::Meta::Role::Composite;
is($c->name, 'Role::Foo|Role::Bar', '... got the composite role name');
- lives_ok {
+ is( exception {
Moose::Meta::Role::Application::RoleSummation->new->apply($c);
- } '... this lives ok';
+ }, undef, '... this lives ok' );
is_deeply(
[ sort $c->get_method_modifier_list('override') ],
}
# test simple overrides w/ conflicts
-dies_ok {
+isnt( exception {
Moose::Meta::Role::Application::RoleSummation->new->apply(
Moose::Meta::Role::Composite->new(
roles => [
]
)
);
-} '... this fails as expected';
+}, undef, '... this fails as expected' );
# test simple overrides w/ conflicts
-dies_ok {
+isnt( exception {
Moose::Meta::Role::Application::RoleSummation->new->apply(
Moose::Meta::Role::Composite->new(
roles => [
]
)
);
-} '... this fails as expected';
+}, undef, '... this fails as expected' );
# test simple overrides w/ conflicts
-dies_ok {
+isnt( exception {
Moose::Meta::Role::Application::RoleSummation->new->apply(
Moose::Meta::Role::Composite->new(
roles => [
]
)
);
-} '... this fails as expected';
+}, undef, '... this fails as expected' );
# test simple overrides w/ conflicts
-dies_ok {
+isnt( exception {
Moose::Meta::Role::Application::RoleSummation->new->apply(
Moose::Meta::Role::Composite->new(
roles => [
]
)
);
-} '... this fails as expected';
+}, undef, '... this fails as expected' );
done_testing;