use warnings;
use Test::More;
-use Test::Fatal;
+use Test::Exception;
=pod
package My::Test::Class1;
use Moose;
- ::ok ! ::exception {
+ ::lives_ok {
with 'Role::Derived1', 'Role::Derived2';
- }, '... roles composed okay (no conflicts)';
+ } '... roles composed okay (no conflicts)';
}
ok(Role::Base->meta->has_method('foo'), '... have the method foo as expected');
extends 'My::Test::Class2::Base';
- ::ok ! ::exception {
+ ::lives_ok {
with 'Role::Derived3', 'Role::Derived4';
- }, '... roles composed okay (no conflicts)';
+ } '... roles composed okay (no conflicts)';
}
ok(Role::Base2->meta->has_override_method_modifier('foo'), '... have the method foo as expected');
extends 'My::Test::Class3::Base';
- ::ok ! ::exception {
+ ::lives_ok {
with 'Role::Derived5', 'Role::Derived6';
- }, '... roles composed okay (no conflicts)';
+ } '... roles composed okay (no conflicts)';
}
ok(Role::Base3->meta->has_around_method_modifiers('foo'), '... have the method foo as expected');
package My::Test::Class4;
use Moose;
- ::ok ! ::exception {
+ ::lives_ok {
with 'Role::Derived7', 'Role::Derived8';
- }, '... roles composed okay (no conflicts)';
+ } '... roles composed okay (no conflicts)';
}
ok(Role::Base4->meta->has_attribute('foo'), '... have the attribute foo as expected');