X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F030_roles%2F017_extending_role_attrs.t;h=df01d3db02e9b59f8fc2466c8517be10a72f6ff9;hb=d03bd989b97597428b460d7f9a021e2931893fa0;hp=7c6dcc6c13728862bc6aca8c10087b43e1bc1952;hpb=f6bee6fe1d579dc3d2ed2952cce9a1556040c8e5;p=gitmo%2FMoose.git diff --git a/t/030_roles/017_extending_role_attrs.t b/t/030_roles/017_extending_role_attrs.t index 7c6dcc6..df01d3d 100644 --- a/t/030_roles/017_extending_role_attrs.t +++ b/t/030_roles/017_extending_role_attrs.t @@ -10,7 +10,7 @@ use Test::Exception; =pod -This basically just makes sure that using +name +This basically just makes sure that using +name on role attributes works right. =cut @@ -18,21 +18,21 @@ on role attributes works right. { package Foo::Role; use Moose::Role; - + has 'bar' => ( is => 'rw', - isa => 'Int', + isa => 'Int', default => sub { 10 }, ); - + package Foo; use Moose; - + with 'Foo::Role'; - + ::lives_ok { has '+bar' => (default => sub { 100 }); - } '... extended the attribute successfully'; + } '... extended the attribute successfully'; } my $foo = Foo->new;