Revert most of the conversion to Test::Fatal so we can redo it

[gitmo/Moose.git] / t / 040_type_constraints / 009_union_types_and_coercions.t

diff --git a/t/040_type_constraints/009_union_types_and_coercions.t b/t/040_type_constraints/009_union_types_and_coercions.t
index a960ea4..e7071f2 100644 (file)
--- a/t/040_type_constraints/009_union_types_and_coercions.t
+++ b/t/040_type_constraints/009_union_types_and_coercions.t
@@ -4,7 +4,7 @@ use strict;
 use warnings;
 
 use Test::More;
-use Test::Fatal;
+use Test::Exception;
 
 use Test::Requires {
     'IO::String' => '0.01', # skip all if not installed
@@ -79,9 +79,9 @@ use Test::Requires {
 
     is($email->as_string, '... this is my body ...', '... got correct string');
 
-    ok ! exception {
+    lives_ok {
         $email->raw_body('... this is the next body ...');
-    }, '... this will coerce correctly';
+    } '... this will coerce correctly';
 
     isa_ok($email->raw_body, 'IO::String');
 
@@ -100,9 +100,9 @@ use Test::Requires {
 
     my $str2 = '... this is the next body (ref) ...';
 
-    ok ! exception {
+    lives_ok {
         $email->raw_body(\$str2);
-    }, '... this will coerce correctly';
+    } '... this will coerce correctly';
 
     isa_ok($email->raw_body, 'IO::String');
 
@@ -122,9 +122,9 @@ use Test::Requires {
 
     my $io_str2 = IO::String->new('... this is the next body (IO::String) ...');
 
-    ok ! exception {
+    lives_ok {
         $email->raw_body($io_str2);
-    }, '... this will coerce correctly';
+    } '... this will coerce correctly';
 
     isa_ok($email->raw_body, 'IO::String');
     is($email->raw_body, $io_str2, '... and it is the one we expected');
@@ -175,14 +175,14 @@ use Test::Requires {
 
 {
     my $foo;
-    ok ! exception { $foo = Foo->new( carray => 1 ) },
+    lives_ok { $foo = Foo->new( carray => 1 ) }
     'Can pass non-ref value for carray';
     is_deeply(
         $foo->carray, [1],
         'carray was coerced to an array ref'
     );
 
-    like exception { Foo->new( carray => {} ) },
+    throws_ok { Foo->new( carray => {} ) }
     qr/\QValidation failed for 'Coerced|Coerced' with value \E(?!undef)/,
         'Cannot pass a hash ref for carray attribute, and hash ref is not coerced to an undef';
 }