X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F800_shikabased%2F002-coerce_multi_class.t;h=2bfd2d251f28b3d3166a112d50f4206f8a3fc08f;hb=3b46bd4991dea7ead4e7f52a089222d24554e2bd;hp=5b9775b6751be5993444758775151043d67b6467;hpb=ee413bc51b36b2e61fdbcdc2244d40b64d2bb4d9;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 5b9775b..2bfd2d2 100644 --- a/t/800_shikabased/002-coerce_multi_class.t +++ b/t/800_shikabased/002-coerce_multi_class.t @@ -16,7 +16,7 @@ use Test::More tests => 14; { package Response; use Mouse; - use Mouse::TypeRegistry; + use Mouse::Util::TypeConstraints; subtype 'Headers' => where { defined $_ && eval { $_->isa('Response::Headers') } }; coerce 'Headers' => @@ -34,7 +34,7 @@ use Test::More tests => 14; eval { package Request; - use Mouse::TypeRegistry; + use Mouse::Util::TypeConstraints; subtype 'Headers' => where { defined $_ && eval { $_->isa('Request::Headers') } }; }; @@ -42,7 +42,7 @@ like $@, qr/The type constraint 'Headers' has already been created, cannot be cr 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,7 +66,7 @@ like $@, qr/A coercion action already exists for 'HashRef'/; eval { package Request; - use Mouse::TypeRegistry; + use Mouse::Util::TypeConstraints; coerce 'Headers' => from 'HashRefa' => via { @@ -78,7 +78,7 @@ like $@, qr/Could not find the type constraint \(HashRefa\) to coerce from/; eval { package Request; - use Mouse::TypeRegistry; + use Mouse::Util::TypeConstraints; coerce 'Headers' => from 'ArrayRef' => via {