use warnings;
use Test::More;
use Test::Moose;
-use Test::Fatal;
+use Test::Exception;
sub check_meta_sanity {
my ($meta, $class) = @_;
BEGIN { extends 'Moose::Meta::Attribute' };
}
-like exception {
+throws_ok {
Moose::Meta::Class->reinitialize(
'Bar',
method_metaclass => 'Bar::Meta::Method',
attribute_metaclass => 'Bar::Meta::Attribute',
);
-}, qr/compatible/;
+} qr/compatible/;
{
package Baz::Meta::Class;
extends 'Moose::Meta::Attribute';
}
-like exception {
+throws_ok {
Moose::Meta::Class->reinitialize(
'Baz',
method_metaclass => 'Baz::Meta::Method',
attribute_metaclass => 'Baz::Meta::Attribute',
);
-}, qr/compatible/;
+} qr/compatible/;
{
package Quux;