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