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

[gitmo/Moose.git] / t / 020_attributes / 014_misc_attribute_coerce_lazy.t

diff --git a/t/020_attributes/014_misc_attribute_coerce_lazy.t b/t/020_attributes/014_misc_attribute_coerce_lazy.t
index 4fe4ee4..fe61494 100644 (file)
--- a/t/020_attributes/014_misc_attribute_coerce_lazy.t
+++ b/t/020_attributes/014_misc_attribute_coerce_lazy.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 2;
+use Test::More;
 use Test::Exception;
 
 
@@ -11,32 +11,32 @@ use Test::Exception;
 {
     package HTTPHeader;
     use Moose;
-    
+
     has 'array' => (is => 'ro');
-    has 'hash'  => (is => 'ro');    
+    has 'hash'  => (is => 'ro');
 }
 
 {
     package Request;
     use Moose;
     use Moose::Util::TypeConstraints;
- 
-    subtype Header => 
-        => as Object 
+
+    subtype Header =>
+        => as Object
         => where { $_->isa('HTTPHeader') };
 
-    coerce Header 
-        => from ArrayRef 
+    coerce Header
+        => from ArrayRef
             => via { HTTPHeader->new(array => $_[0]) }
-        => from HashRef 
-            => via { HTTPHeader->new(hash => $_[0]) }; 
-    
+        => from HashRef
+            => via { HTTPHeader->new(hash => $_[0]) };
+
     has 'headers'  => (
            is      => 'rw',
            isa     => 'Header',
            coerce  => 1,
            lazy    => 1,
-           default => sub { [ 'content-type', 'text/html' ] } 
+           default => sub { [ 'content-type', 'text/html' ] }
     );
 }
 
@@ -47,5 +47,4 @@ lives_ok {
     $r->headers;
 } '... this coerces and passes the type constraint even with lazy';
 
-
-
+done_testing;