X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F800_shikabased%2F002-coerce_multi_class.t;h=0e2d9039e6ed8bb03afbda5486040e8ebfbbe3c2;hb=7f408f4aa3fc94662299107b1e1cc78818121ae4;hp=b2d26b889ae4f4552e9f899acb29892c820968fd;hpb=da9a5e9d281da801c56f6a1f488825fcdb330fd5;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 b2d26b8..0e2d903 100644 --- a/t/800_shikabased/002-coerce_multi_class.t +++ b/t/800_shikabased/002-coerce_multi_class.t @@ -1,6 +1,6 @@ use strict; use warnings; -use Test::More tests => 14; +use Test::More tests => 13; { package Response::Headers; @@ -88,12 +88,6 @@ eval { }; ok !$@; -eval { - package Response; - type 'Headers' => where { defined $_ && eval { $_->isa('Response::Headers') } }; -}; -like $@, qr/The type constraint 'Headers' has already been created in Response and cannot be created again in Response/; - { package Request; use Mouse; @@ -105,7 +99,6 @@ like $@, qr/The type constraint 'Headers' has already been created in Response a ); } - my $req = Request->new(headers => { foo => 'bar' }); isa_ok($req->headers, 'Response::Headers'); is($req->headers->foo, 'bar'); @@ -119,3 +112,4 @@ is($res->headers->foo, 'bar'); $res->headers({foo => 'yay'}); isa_ok($res->headers, 'Response::Headers'); is($res->headers->foo, 'yay'); +