From: Shawn M Moore Date: Mon, 22 Dec 2008 03:43:49 +0000 (+0000) Subject: Remove the redefine type tests for now, they'll go in a separate file X-Git-Tag: 0.19~85 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7f408f4aa3fc94662299107b1e1cc78818121ae4;p=gitmo%2FMouse.git Remove the redefine type tests for now, they'll go in a separate file --- diff --git a/t/800_shikabased/002-coerce_multi_class.t b/t/800_shikabased/002-coerce_multi_class.t index 2166e3f..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,14 +88,6 @@ eval { }; ok !$@; -eval { - package Response; - type 'Headers' => where { - eval { $_->isa('Response::Headers') } - }; -}; -ok(!$@, "You can redefine types in their original package"); - { package Request; use Mouse; @@ -107,7 +99,6 @@ ok(!$@, "You can redefine types in their original package"); ); } - my $req = Request->new(headers => { foo => 'bar' }); isa_ok($req->headers, 'Response::Headers'); is($req->headers->foo, 'bar'); @@ -121,3 +112,4 @@ is($res->headers->foo, 'bar'); $res->headers({foo => 'yay'}); isa_ok($res->headers, 'Response::Headers'); is($res->headers->foo, 'yay'); +