use strict;
use warnings;
use Test::More;
-use Test::Fatal;
+use Test::Exception;
{
package Foo::API;
package Foo::Class;
use Moose;
{ our $TODO; local $TODO = "role accessors don't satisfy other role requires";
- ::ok ! ::exception { with 'Foo' }, 'requirements are satisfied properly';
+ ::lives_ok { with 'Foo' } 'requirements are satisfied properly';
}
}
use Moose;
{ our $TODO; local $TODO = "role accessors don't satisfy other role requires";
- ::ok ! ::exception { with qw(Bar Baz) }, 'requirements are satisfied properly';
+ ::lives_ok { with qw(Bar Baz) } 'requirements are satisfied properly';
}
}