Convert all tests to done_testing.

[gitmo/Moose.git] / t / 040_type_constraints / 025_type_coersion_on_lazy_attributes.t

diff --git a/t/040_type_constraints/025_type_coersion_on_lazy_attributes.t b/t/040_type_constraints/025_type_coersion_on_lazy_attributes.t
index 5f11fb6..a935ffc 100644 (file)
--- a/t/040_type_constraints/025_type_coersion_on_lazy_attributes.t
+++ b/t/040_type_constraints/025_type_coersion_on_lazy_attributes.t
@@ -1,3 +1,10 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More;
+
 {
     package SomeClass;
     use Moose;
@@ -7,17 +14,21 @@
         => where { /^6$/ };
     subtype 'TextSix' => as 'Str'
         => where { /Six/i };
-    coerce 'TextSix' 
-        => from 'DigitSix' 
+    coerce 'TextSix'
+        => from 'DigitSix'
         => via { confess("Cannot live without 6 ($_)") unless /^6$/; 'Six' };
 
-    has foo => ( isa => 'TextSix', coerce => 1, is => 'ro', default => 6,
-        lazy => 1
-    ); 
+    has foo => (
+        is      => 'ro',
+        isa     => 'TextSix',
+        coerce  => 1,
+        default => 6,
+        lazy    => 1
+    );
 }
 
-use Test::More tests => 2;
 my $attr = SomeClass->meta->get_attribute('foo');
 is($attr->get_value(SomeClass->new()), 'Six');
 is(SomeClass->new()->foo, 'Six');
 
+done_testing;