You can redefine types in the original package

[gitmo/Mouse.git] / t / 800_shikabased / 002-coerce_multi_class.t

diff --git a/t/800_shikabased/002-coerce_multi_class.t b/t/800_shikabased/002-coerce_multi_class.t
index db5a8a7..2166e3f 100644 (file)
--- a/t/800_shikabased/002-coerce_multi_class.t
+++ b/t/800_shikabased/002-coerce_multi_class.t
@@ -38,7 +38,7 @@ eval {
 
     type 'Headers' => where { defined $_ && eval { $_->isa('Request::Headers') } };
 };
-like $@, qr/The type constraint 'Headers' has already been created, cannot be created again in Request/;
+like $@, qr/The type constraint 'Headers' has already been created in Response and cannot be created again in Request/;
 
 eval {
     package Request;
@@ -68,9 +68,9 @@ eval {
     package Request;
     use Mouse::Util::TypeConstraints;
 
-    coerce 'Headers' =>
+    coerce 'Int' =>
         from 'XXX' => via {
-            Request::Headers->new(%{ $_ });
+            1
         },
     ;
 };
@@ -90,9 +90,11 @@ ok !$@;
 
 eval {
     package Response;
-    type 'Headers' => where { defined $_ && eval { $_->isa('Response::Headers') } };
+    type 'Headers' => where {
+        eval { $_->isa('Response::Headers') }
+    };
 };
-like $@, qr/The type constraint 'Headers' has already been created, cannot be created again in Response/;
+ok(!$@, "You can redefine types in their original package");
 
 {
     package Request;