Redid conversion to Test::Fatal

[gitmo/Moose.git] / t / 100_bugs / 017_type_constraint_messages.t

diff --git a/t/100_bugs/017_type_constraint_messages.t b/t/100_bugs/017_type_constraint_messages.t
index 526130d..e6e5a19 100644 (file)
--- a/t/100_bugs/017_type_constraint_messages.t
+++ b/t/100_bugs/017_type_constraint_messages.t
@@ -4,7 +4,7 @@ use strict;
 use warnings;
 
 use Test::More;
-use Test::Exception;
+use Test::Fatal;
 
 
 # RT #37569
@@ -52,22 +52,16 @@ use Test::Exception;
 my $foo = Foo->new;
 my $obj = MyObject->new;
 
-throws_ok {
+like( exception {
     $foo->ar( [] );
-}
-qr/Attribute \(ar\) does not pass the type constraint because: ref: ARRAY/,
-    '... got the right error message';
+}, qr/Attribute \(ar\) does not pass the type constraint because: ref: ARRAY/, '... got the right error message' );
 
-throws_ok {
+like( exception {
     $foo->obj($foo);    # Doh!
-}
-qr/Attribute \(obj\) does not pass the type constraint because: Well it is an object/,
-    '... got the right error message';
+}, qr/Attribute \(obj\) does not pass the type constraint because: Well it is an object/, '... got the right error message' );
 
-throws_ok {
+like( exception {
     $foo->nt($foo);     # scalar
-}
-qr/Attribute \(nt\) does not pass the type constraint because: blessed/,
-    '... got the right error message';
+}, qr/Attribute \(nt\) does not pass the type constraint because: blessed/, '... got the right error message' );
 
 done_testing;