Make default is deprecation warning happen at run time

[gitmo/Moose.git] / t / 010_basics / 011_moose_respects_type_constraints.t

diff --git a/t/010_basics/011_moose_respects_type_constraints.t b/t/010_basics/011_moose_respects_type_constraints.t
index a62f147..3e0997a 100644 (file)
--- a/t/010_basics/011_moose_respects_type_constraints.t
+++ b/t/010_basics/011_moose_respects_type_constraints.t
@@ -3,27 +3,27 @@
 use strict;
 use warnings;
 
-use Test::More tests => 7;
+use Test::More;
 use Test::Exception;
 
 use Moose::Util::TypeConstraints;
 
 =pod
 
-This tests demonstrates that Moose will not override 
-a pre-existing type constraint of the same name when 
+This tests demonstrates that Moose will not override
+a preexisting type constraint of the same name when
 making constraints for a Moose-class.
 
 It also tests that an attribute which uses a 'Foo' for
-it's isa option will get the subtype Foo, and not a 
+it's isa option will get the subtype Foo, and not a
 type representing the Foo moose class.
 
 =cut
 
-BEGIN { 
+BEGIN {
     # create this subtype first (in BEGIN)
-    subtype Foo 
-        => as 'Value' 
+    subtype Foo
+        => as 'Value'
         => where { $_ eq 'Foo' };
 }
 
@@ -43,7 +43,7 @@ ok(!$foo_constraint->check('Bar'), '... my constraint failed correctly');
 {
     package Bar;
     use Moose;
-    
+
     has 'foo' => (is => 'rw', isa => 'Foo');
 }
 
@@ -51,12 +51,11 @@ my $bar = Bar->new;
 isa_ok($bar, 'Bar');
 
 lives_ok {
-    $bar->foo('Foo');       
+    $bar->foo('Foo');
 } '... checked the type constraint correctly';
 
 dies_ok {
-    $bar->foo(Foo->new);       
+    $bar->foo(Foo->new);
 } '... checked the type constraint correctly';
 
-
-
+done_testing;