X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F501_moose_coerce_mouse.t;h=21654820b625a651cc9d0096d0b74999688d96cc;hb=0d6e12bec0f93cd1e6e0f58bd00fbad9447dd325;hp=1d8cc193bd906efb474e81ad75138eab33503b02;hpb=9a16e6d1a0c2d137f476f133208d682cbd86273e;p=gitmo%2FMouse.git diff --git a/t/501_moose_coerce_mouse.t b/t/501_moose_coerce_mouse.t index 1d8cc19..2165482 100644 --- a/t/501_moose_coerce_mouse.t +++ b/t/501_moose_coerce_mouse.t @@ -6,7 +6,7 @@ use warnings; use Test::More; use Test::Exception; BEGIN { - plan skip_all => "Moose required for this test" unless eval { require Moose && Moose->VERSION('0.59') }; + plan skip_all => "Moose 0.68 required for this test" unless eval { require Moose && Moose->VERSION('0.68') }; plan tests => 5; } @@ -20,9 +20,9 @@ use Test::Exception; { package Response; use Mouse; - use Mouse::TypeRegistry; + use Mouse::Util::TypeConstraints; - subtype 'HeadersType' => where { defined $_ && eval { $_->isa('Headers') } }; + type 'HeadersType' => where { defined $_ && eval { $_->isa('Headers') } }; coerce 'HeadersType' => from 'HashRef' => via { Headers->new(%{ $_ });