X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Faccessor-reader-writer.t;h=04c00006152068f74c8038122db6e18fad5002db;hb=b1a9585fa5cad223ac68c95130c11b708b289874;hp=eed47f96ed2668464fe2d07b19aa018e87521f94;hpb=4752c97bb22149613a59912fa5a23b865cadef54;p=gitmo%2FMoo.git

diff --git a/t/accessor-reader-writer.t b/t/accessor-reader-writer.t
index eed47f9..04c0000 100644
--- a/t/accessor-reader-writer.t
+++ b/t/accessor-reader-writer.t
@@ -14,6 +14,8 @@ my @result;
     reader => 'get_one',
     writer => 'set_one',
   );
+
+  sub one {'sub'}
 }
 
 {
@@ -33,6 +35,7 @@ my $bar = Bar->new(two => '...');
 is( $foo->get_one, 'lol', 'reader works' );
 $foo->set_one('rofl');
 is( $foo->get_one, 'rofl', 'writer works' );
+is( $foo->one, 'sub', 'reader+writer = no accessor' );
 
 ok( exception { $foo->get_one('blah') }, 'reader dies on write' );