do not generate an accessor on an rw attr if reader and writer are defined, this...

[gitmo/Moo.git] / t / accessor-reader-writer.t

diff --git a/t/accessor-reader-writer.t b/t/accessor-reader-writer.t
index eed47f9..04c0000 100644 (file)
--- 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' );