X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F300_immutable%2F002_apply_roles_to_immutable.t;h=b153a8f8178bc0f170620d56606986e6cd75678d;hb=b10dde3a27c11623547417c599ccbd4f92e42651;hp=57d0c7f30b6e0c0f7036407f005d6c1dc1c744d8;hpb=d4e538d9bf46d1c14d2ecfd36ac35ed541ae7ee6;p=gitmo%2FMoose.git

diff --git a/t/300_immutable/002_apply_roles_to_immutable.t b/t/300_immutable/002_apply_roles_to_immutable.t
index 57d0c7f..b153a8f 100644
--- a/t/300_immutable/002_apply_roles_to_immutable.t
+++ b/t/300_immutable/002_apply_roles_to_immutable.t
@@ -4,7 +4,7 @@ use strict;
 use warnings;
 
 use Test::More;
-use Test::Exception;
+use Test::Fatal;
 
 
 {
@@ -31,9 +31,9 @@ isa_ok($foo, 'Foo');
 
 is($foo->baz, 'Foo::baz', '... got the right value');
 
-lives_ok {
+is( exception {
     My::Role->meta->apply($foo)
-} '... successfully applied the role to immutable instance';
+}, undef, '... successfully applied the role to immutable instance' );
 
 is($foo->baz, 'My::Role::baz(Foo::baz)', '... got the right value');