Redid conversion to Test::Fatal

[gitmo/Moose.git] / t / 040_type_constraints / 024_role_type_constraint.t

diff --git a/t/040_type_constraints/024_role_type_constraint.t b/t/040_type_constraints/024_role_type_constraint.t
index 163bfca..eae75d4 100644 (file)
--- a/t/040_type_constraints/024_role_type_constraint.t
+++ b/t/040_type_constraints/024_role_type_constraint.t
@@ -4,7 +4,7 @@ use strict;
 use warnings;
 
 use Test::More;
-use Test::Exception;
+use Test::Fatal;
 
 BEGIN {
     use_ok('Moose::Util::TypeConstraints');
@@ -32,8 +32,7 @@ BEGIN {
 
 }
 
-lives_ok { role_type('Boop', message { "${_} is not a Boop" }) }
-  'role_type keywork works with message';
+is( exception { role_type('Boop', message { "${_} is not a Boop" }) }, undef, 'role_type keywork works with message' );
 
 my $type = find_type_constraint("Foo");