X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F402-attribute-application.t;h=e4745c5f36240bd6bfa0d53babe19e685cd9cbe4;hb=8cbcbb47d0f02077d07873c553494a884d9c085f;hp=136ffdc03b9fd988dc473c82553da5c0b5d30b7b;hpb=3118622d182add6c88792d5de3b4af047e8a7c8c;p=gitmo%2FMouse.git diff --git a/t/402-attribute-application.t b/t/402-attribute-application.t index 136ffdc..e4745c5 100644 --- a/t/402-attribute-application.t +++ b/t/402-attribute-application.t @@ -2,20 +2,21 @@ use strict; use warnings; use Test::More tests => 11; -use t::Exception; +use Test::Exception; do { package Role; use Mouse::Role; has 'attr' => ( + is => 'bare', default => 'Role', ); no Mouse::Role; }; -is_deeply(Role->meta->get_attribute('attr'), {default => 'Role'}); +is(Role->meta->get_attribute('attr')->{default}, 'Role'); do { package Class; @@ -33,6 +34,7 @@ do { use Mouse::Role; has 'attr' => ( + is => 'bare', default => 'Role2', ); @@ -55,6 +57,7 @@ lives_ok { with 'Role'; has attr => ( + is => 'bare', default => 'Class3', ); }; @@ -66,6 +69,7 @@ lives_ok { use Mouse; has attr => ( + is => 'bare', default => 'Class::Parent', ); };