use lib 't/lib', 'lib';
use Test::More;
-use Test::Exception;
+use Test::Fatal;
use Moose::Util::MetaRole;
My::Class->meta()->add_after_method_modifier( 'bar' => sub { 'bar' } );
is( My::Class->meta()->get_method('bar')->foo(), 10,
'... call foo() on a wrapped method metaclass object' );
- # so that it doesn't break on reinitialization, since it's a
- # Class::MOP::Method::Wrapped object, which isn't a Moose::Meta::Method
- # object. Someday we'll fix this...
- My::Class->meta()->remove_method('bar');
}
{
}
}
-lives_ok {
+is( exception {
package UsesExportedMoose;
ExportsMoose->import;
-} 'import module which loads a role from disk during init_meta';
+}, undef, 'import module which loads a role from disk during init_meta' );
{
package Foo::Meta::Role;