X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fregressions%2F01-is_subtype_of.t;h=87e538247960df9d2cbe80f8babbe09a835e672d;hb=0f6bc652c3122cc733cde61d6182e0dbcd56b2c8;hp=d1a70546d2390391713fb8942a1fa4e9c194c9a1;hpb=1f0716010cd80a4a4c192e16034c69caa6b01606;p=gitmo%2FMooseX-Types.git

diff --git a/t/regressions/01-is_subtype_of.t b/t/regressions/01-is_subtype_of.t
index d1a7054..87e5382 100644
--- a/t/regressions/01-is_subtype_of.t
+++ b/t/regressions/01-is_subtype_of.t
@@ -6,7 +6,7 @@ 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,19 +20,3 @@ ok ( Item->is_subtype_of('Any'),
 ok ( Item->is_subtype_of(Any),
   q[Item is subtype of Any]);
 
-
-__END__
-
-
-my $any = subtype as 'Any';
-
-ok ( $item->is_subtype_of(Any),
-  q[Item is subtype of Any]);
-
-ok ( $item->is_subtype_of($any),
-  q[$item is subtype of $any]);
-
-ok ( Item->is_subtype_of($any),
-  q[Item is subtype of $any]);
-
-