use warnings;
use Test::More;
-use Test::Fatal;
+use Test::Exception;
{
package My::Foo::Class;
use Moose;
- ::ok ! ::exception {
+ ::lives_ok {
with 'Foo::Role' => { -excludes => 'foo' },
'Bar::Role' => { -excludes => 'foo' },
'Baz::Role';
- }, '... composed our roles correctly';
+ } '... composed our roles correctly';
package My::Foo::Class::Broken;
use Moose;
- ::like ::exception {
+ ::throws_ok {
with 'Foo::Role',
'Bar::Role' => { -excludes => 'foo' },
'Baz::Role';
- }, qr/Due to a method name conflict in roles 'Baz::Role' and 'Foo::Role', the method 'foo' must be implemented or excluded by 'My::Foo::Class::Broken'/,
+ } qr/Due to a method name conflict in roles 'Baz::Role' and 'Foo::Role', the method 'foo' must be implemented or excluded by 'My::Foo::Class::Broken'/,
'... composed our roles correctly';
}
package My::Foo::Role;
use Moose::Role;
- ::ok ! ::exception {
+ ::lives_ok {
with 'Foo::Role' => { -excludes => 'foo' },
'Bar::Role' => { -excludes => 'foo' },
'Baz::Role';
- }, '... composed our roles correctly';
+ } '... composed our roles correctly';
}
ok(My::Foo::Role->meta->has_method('foo'), "we have a foo method");
package My::Foo::Role::Other;
use Moose::Role;
- ::ok ! ::exception {
+ ::lives_ok {
with 'Foo::Role',
'Bar::Role' => { -excludes => 'foo' },
'Baz::Role';
- }, '... composed our roles correctly';
+ } '... composed our roles correctly';
}
ok(!My::Foo::Role::Other->meta->has_method('foo'), "we dont have a foo method");