Coerce a type that won't fail us later (damn you Moose)

[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 5b9775b..b2d26b8 100644 (file)
--- a/t/800_shikabased/002-coerce_multi_class.t
+++ b/t/800_shikabased/002-coerce_multi_class.t
@@ -16,9 +16,9 @@ use Test::More tests => 14;
 {
     package Response;
     use Mouse;
-    use Mouse::TypeRegistry;
+    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(%{ $_ });
@@ -34,15 +34,15 @@ use Test::More tests => 14;
 
 eval {
     package Request;
-    use Mouse::TypeRegistry;
+    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/;
+like $@, qr/The type constraint 'Headers' has already been created in Response and cannot be created again in Request/;
 
 eval {
     package Request;
-    use Mouse::TypeRegistry;
+    use Mouse::Util::TypeConstraints;
 
     coerce 'TooBad' =>
         from 'HashRef' => via {
@@ -54,7 +54,7 @@ like $@, qr/Cannot find type 'TooBad', perhaps you forgot to load it./;
 
 eval {
     package Request;
-    use Mouse::TypeRegistry;
+    use Mouse::Util::TypeConstraints;
 
     coerce 'Headers' =>
         from 'HashRef' => via {
@@ -66,19 +66,19 @@ like $@, qr/A coercion action already exists for 'HashRef'/;
 
 eval {
     package Request;
-    use Mouse::TypeRegistry;
+    use Mouse::Util::TypeConstraints;
 
-    coerce 'Headers' =>
-        from 'HashRefa' => via {
-            Request::Headers->new(%{ $_ });
+    coerce 'Int' =>
+        from 'XXX' => via {
+            1
         },
     ;
 };
-like $@, qr/Could not find the type constraint \(HashRefa\) to coerce from/;
+like $@, qr/Could not find the type constraint \(XXX\) to coerce from/;
 
 eval {
     package Request;
-    use Mouse::TypeRegistry;
+    use Mouse::Util::TypeConstraints;
 
     coerce 'Headers' =>
         from 'ArrayRef' => via {
@@ -90,9 +90,9 @@ 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/;
+like $@, qr/The type constraint 'Headers' has already been created in Response and cannot be created again in Response/;
 
 {
     package Request;