removed debugging code leftovers
John Napiorkowski [Tue, 1 Jun 2010 17:49:14 +0000 (13:49 -0400)]
t/regressions/01-is_subtype_of.t

index d1a7054..1ce6e25 100644 (file)
@@ -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]);
-
-