[Moose-commits] r7158 - in Mouse/trunk: . t/800_shikabased

[sartak at code2.0beta.co.uk]

Author: sartak
Date: 2008-12-21 19:43:49 -0800 (Sun, 21 Dec 2008)
New Revision: 7158

Modified:
   Mouse/trunk/
   Mouse/trunk/t/800_shikabased/002-coerce_multi_class.t
Log:
 r77763 at onn:  sartak | 2008-12-21 22:39:01 -0500
 Remove the redefine type tests for now, they'll go in a separate file



Property changes on: Mouse/trunk
___________________________________________________________________
Name: svk:merge
   - 08e7d58d-de06-4458-8c15-335e402ab116:/local/Mouse:77761
08e7d58d-de06-4458-8c15-335e402ab116:/local/Mouse-trunk:61565
3efe9002-19ed-0310-8735-a98156148065:/Mouse/branches/shika-based:6997
   + 08e7d58d-de06-4458-8c15-335e402ab116:/local/Mouse:77763
08e7d58d-de06-4458-8c15-335e402ab116:/local/Mouse-trunk:61565
3efe9002-19ed-0310-8735-a98156148065:/Mouse/branches/shika-based:6997

Modified: Mouse/trunk/t/800_shikabased/002-coerce_multi_class.t
===================================================================
--- Mouse/trunk/t/800_shikabased/002-coerce_multi_class.t	2008-12-22 03:32:37 UTC (rev 7157)
+++ Mouse/trunk/t/800_shikabased/002-coerce_multi_class.t	2008-12-22 03:43:49 UTC (rev 7158)
@@ -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 @@
 };
 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 @@
     );
 }
 
-
 my $req = Request->new(headers => { foo => 'bar' });
 isa_ok($req->headers, 'Response::Headers');
 is($req->headers->foo, 'bar');
@@ -121,3 +112,4 @@
 $res->headers({foo => 'yay'});
 isa_ok($res->headers, 'Response::Headers');
 is($res->headers->foo, 'yay');
+