X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=xt%2Fhandle_moose.t;fp=xt%2Fhandle_moose.t;h=397f2fd22041885f7b3953b8fc25dda281f55cd1;hb=97612fe26a8280865ff57f593919e893f6d40a85;hp=953b34a7e2623bbcd65048c4ff7bdfa7655e3bd8;hpb=7754d2062ba80b30058d8815bb22e2abaa2b4dcc;p=gitmo%2FMoo.git

diff --git a/xt/handle_moose.t b/xt/handle_moose.t
index 953b34a..397f2fd 100644
--- a/xt/handle_moose.t
+++ b/xt/handle_moose.t
@@ -1,5 +1,5 @@
 use strictures 1;
-use Test::Exception;
+use Test::Fatal;
 
 BEGIN { require "t/moo-accessors.t"; }
 
@@ -44,12 +44,12 @@ is($spoon->four, 4, 'Role application ok');
    requires 'gun_dog';
 }
 
-lives_ok {
+is exception {
    Moose::Util::apply_all_roles($meta, 'MooRequiresFour');
-} 'apply role with satisified requirement';
+}, undef, 'apply role with satisified requirement';
 
-dies_ok {
+ok exception {
    Moose::Util::apply_all_roles($meta, 'MooRequiresGunDog');
-} 'apply role with unsatisified requirement';
+}, 'apply role with unsatisified requirement';
 
 done_testing;