Reverse the output from _follow_also
[gitmo/Moose.git] / t / 050_metaclasses / 050_metarole_backcompat.t
index bafc687..82462c1 100644 (file)
@@ -9,7 +9,7 @@ use warnings;
 use lib 't/lib', 'lib';
 
 use Test::More;
-use Test::Exception;
+use Test::Fatal;
 
 use Moose::Util::MetaRole;
 
@@ -105,10 +105,6 @@ 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');
 }
 
 {
@@ -587,10 +583,10 @@ use Moose::Util::MetaRole;
     }
 }
 
-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;