X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F800_shikabased%2F002-coerce_multi_class.t;h=87450fe60b1298305190fdfc5aad6253aa6d3e05;hb=3fa6f35df998618abdf763f4e4a060ba8f450a35;hp=2bfd2d251f28b3d3166a112d50f4206f8a3fc08f;hpb=0d9fea2202e3abf87e59f693afab640548faeef5;p=gitmo%2FMouse.git diff --git a/t/800_shikabased/002-coerce_multi_class.t b/t/800_shikabased/002-coerce_multi_class.t index 2bfd2d2..87450fe 100644 --- a/t/800_shikabased/002-coerce_multi_class.t +++ b/t/800_shikabased/002-coerce_multi_class.t @@ -18,7 +18,7 @@ use Test::More tests => 14; use Mouse; use Mouse::Util::TypeConstraints; - subtype 'Headers' => where { defined $_ && eval { $_->isa('Response::Headers') } }; + type 'Headers' => where { defined $_ && eval { $_->isa('Response::Headers') } }; coerce 'Headers' => from 'HashRef' => via { Response::Headers->new(%{ $_ }); @@ -36,7 +36,7 @@ eval { package Request; use Mouse::Util::TypeConstraints; - subtype 'Headers' => where { defined $_ && eval { $_->isa('Request::Headers') } }; + type 'Headers' => where { defined $_ && eval { $_->isa('Request::Headers') } }; }; like $@, qr/The type constraint 'Headers' has already been created, cannot be created again in Request/; @@ -90,7 +90,7 @@ ok !$@; eval { package Response; - subtype 'Headers' => where { defined $_ && eval { $_->isa('Response::Headers') } }; + type 'Headers' => where { defined $_ && eval { $_->isa('Response::Headers') } }; }; like $@, qr/The type constraint 'Headers' has already been created, cannot be created again in Response/;