X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fregressions%2F01-is_type_of.t;h=60788fe1cd7e73ed264bf5cc5eb49a20994307fa;hb=9eb6e8c6a5da5d60eb1986db304565b8ea826aed;hp=d8ca76dda407ec46cec2b06fcbdc9755079756d1;hpb=fd29a93ceffa03fc063ad61f6dd9d075f33cf564;p=gitmo%2FMooseX-Types-Structured.git diff --git a/t/regressions/01-is_type_of.t b/t/regressions/01-is_type_of.t index d8ca76d..60788fe 100644 --- a/t/regressions/01-is_type_of.t +++ b/t/regressions/01-is_type_of.t @@ -1,7 +1,7 @@ BEGIN { - use strict; - use warnings; - use Test::More tests=>11; + use strict; + use warnings; + use Test::More tests=>11; } { @@ -9,7 +9,7 @@ BEGIN { use MooseX::Types::Structured qw(Dict Tuple); use MooseX::Types::Moose qw(Int Str Item); use MooseX::Types -declare => [qw( - MyDict1 MyDict2 MyDict4 + MyDict1 MyDict2 MyDict4 )]; subtype MyDict1, @@ -68,8 +68,3 @@ ok ( ! $item->is_subtype_of($any), ok ( ! Item->is_subtype_of($any), q[Item is NOT a subtype of $any]); - -__END__ - - -