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