X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F020_attributes%2F005_attribute_does.t;h=267f98d289f62e14698f8e7f1e2f4f88264e20fc;hb=1f1ccccdb5564d10867ffb11df17a5155999a62a;hp=c61f82684aa221015852e9d3eeeaed002929872c;hpb=4060c871da12ba3c5e88986ed121a8254f906bd6;p=gitmo%2FMouse.git diff --git a/t/020_attributes/005_attribute_does.t b/t/020_attributes/005_attribute_does.t index c61f826..267f98d 100644 --- a/t/020_attributes/005_attribute_does.t +++ b/t/020_attributes/005_attribute_does.t @@ -19,7 +19,7 @@ use Test::Exception; has 'bar' => (is => 'rw', does => 'Bar::Role'); has 'baz' => ( is => 'rw', - does => role_type('Bar::Role') + does => 'Bar::Role' ); package Bar::Role; @@ -28,7 +28,7 @@ use Test::Exception; # if isa and does appear together, then see if Class->does(Role) # if it does work... then the does() check is actually not needed # since the isa() check will imply the does() check - has 'foo' => (is => 'rw', isa => 'Foo::Class', does => 'Foo::Role'); + has 'foo' => (is => 'rw', isa => 'Foo::Class'); package Foo::Class; use Mouse; @@ -77,12 +77,10 @@ lives_ok { use Test::More; use Mouse; - local $TODO = 'setting both isa and does'; - # if isa and does appear together, then see if Class->does(Role) # if it does not,.. we have a conflict... so we die loudly ::dies_ok { - has 'foo' => (isa => 'Foo::Class', does => 'Bar::Class'); + has 'foo' => (is => 'rw', isa => 'Foo::Class', does => 'Bar::Class'); } '... cannot have a does() which is not done by the isa()'; } @@ -97,12 +95,10 @@ lives_ok { use Test::More; use Mouse; - local $TODO = 'setting both isa and does'; - # if isa and does appear together, then see if Class->does(Role) # if it does not,.. we have a conflict... so we die loudly ::dies_ok { - has 'foo' => (isa => 'Bling', does => 'Bar::Class'); + has 'foo' => (is => 'rw', isa => 'Bling', does => 'Bar::Class'); } '... cannot have a isa() which is cannot does()'; }