X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F100_bugs%2F007_reader_precedence_bug.t;h=1aa0abd8b87e2f6565b07ac873dd5d1b5d9e4689;hb=d03bd989b97597428b460d7f9a021e2931893fa0;hp=c36721fef7bdaa45cfc43b45fe7ce3fbd369cccc;hpb=f6bee6fe1d579dc3d2ed2952cce9a1556040c8e5;p=gitmo%2FMoose.git diff --git a/t/100_bugs/007_reader_precedence_bug.t b/t/100_bugs/007_reader_precedence_bug.t index c36721f..1aa0abd 100644 --- a/t/100_bugs/007_reader_precedence_bug.t +++ b/t/100_bugs/007_reader_precedence_bug.t @@ -7,14 +7,14 @@ use Test::More tests => 3; { package Foo; - use Moose; + use Moose; has 'foo' => ( is => 'ro', reader => 'get_foo' ); } { my $foo = Foo->new(foo => 10); my $reader = $foo->meta->get_attribute('foo')->reader; - is($reader, 'get_foo', + is($reader, 'get_foo', 'reader => "get_foo" has correct presedence'); can_ok($foo, 'get_foo'); is($foo->$reader, 10, "Reader works as expected");