use warnings;
use Test::More;
-use Test::Exception;
+use Test::Fatal;
{
package Bomb;
package PracticalJoke;
use Moose;
- ::throws_ok {
+ ::like( ::exception {
with 'Bomb', 'Spouse';
- } qr/Due to method name conflicts in roles 'Bomb' and 'Spouse', the methods 'explode' and 'fuse' must be implemented or excluded by 'PracticalJoke'/;
+ }, qr/Due to method name conflicts in roles 'Bomb' and 'Spouse', the methods 'explode' and 'fuse' must be implemented or excluded by 'PracticalJoke'/ );
- ::throws_ok {
+ ::like( ::exception {
with (
'Bomb', 'Spouse',
'Caninish', 'Treeve',
);
- } qr/Due to a method name conflict in roles 'Caninish' and 'Treeve', the method 'bark' must be implemented or excluded by 'PracticalJoke'/;
+ }, qr/Due to a method name conflict in roles 'Caninish' and 'Treeve', the method 'bark' must be implemented or excluded by 'PracticalJoke'/ );
}
done_testing;