use warnings;
use Test::More;
-use Test::Exception;
+use Test::Fatal;
use Scalar::Util 'blessed';
ok(!$bar->can( 'talk' ), "... the role is not composed yet");
-dies_ok {
+isnt( exception {
$foo->dog($bar)
-} '... and setting the accessor fails (not a Dog yet)';
+}, undef, '... and setting the accessor fails (not a Dog yet)' );
Dog->meta->apply($bar);
is($bar->talk, 'woof', '... got the right return value for the newly composed method');
-lives_ok {
+is( exception {
$foo->dog($bar)
-} '... and setting the accessor is okay';
+}, undef, '... and setting the accessor is okay' );
done_testing;