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=7739b248e21c3f94bbe332648a333b8e726b9441;hb=4acaa12eea4d2dadc3b1e5d6eac8f08edb54bef6;hp=79766355df71ee3beaee6caea1621127f0c3695d;hpb=9978e85e92a466d86162718bd8e618ca91d44149;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 7976635..7739b24 100644
--- a/t/300_immutable/002_apply_roles_to_immutable.t
+++ b/t/300_immutable/002_apply_roles_to_immutable.t
@@ -3,9 +3,8 @@
 use strict;
 use warnings;
 
-use Test::More tests => 4;
-use Test::Exception;
-
+use Test::More;
+use Test::Fatal;
 
 
 {
@@ -32,10 +31,10 @@ isa_ok($foo, 'Foo');
 
 is($foo->baz, 'Foo::baz', '... got the right value');
 
-lives_ok {
+ok ! exception {
     My::Role->meta->apply($foo)
-} '... successfully applied the role to immutable instance';
+}, '... successfully applied the role to immutable instance';
 
 is($foo->baz, 'My::Role::baz(Foo::baz)', '... got the right value');
 
-
+done_testing;