Use done_testing in all tests and use Test::Requires

[gitmo/MooseX-Types.git] / t / regressions / 01-is_subtype_of.t

diff --git a/t/regressions/01-is_subtype_of.t b/t/regressions/01-is_subtype_of.t
index 1ce6e25..0fe59c1 100644 (file)
--- a/t/regressions/01-is_subtype_of.t
+++ b/t/regressions/01-is_subtype_of.t
@@ -1,12 +1,12 @@
 use strict;
 use warnings;
 
-use Test::More tests=>5;
+use Test::More;
 use MooseX::Types;
 use MooseX::Types::Moose qw(Any Item );
 
 
-my $item = subtype as 'Item';
+my $item = subtype as Item;
 
 ok Item->equals('Item');
 ok Item->equals(Item);
@@ -20,3 +20,4 @@ ok ( Item->is_subtype_of('Any'),
 ok ( Item->is_subtype_of(Any),
   q[Item is subtype of Any]);
 
+done_testing;