X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F050_metaclasses%2F050_metarole_backcompat.t;h=82462c1d49c695c0b1d492f0c73c862a842dbf0d;hb=4e1a0020d28612ce072902bf6bc94a073eb852e2;hp=bafc687545bbb791cfac4ea6f77a95e3c7a3b9ce;hpb=11ba7c34544d01f8179e603bb13eb36d49d65a0a;p=gitmo%2FMoose.git

diff --git a/t/050_metaclasses/050_metarole_backcompat.t b/t/050_metaclasses/050_metarole_backcompat.t
index bafc687..82462c1 100644
--- a/t/050_metaclasses/050_metarole_backcompat.t
+++ b/t/050_metaclasses/050_metarole_backcompat.t
@@ -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;