updated dependents test

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

diff --git a/t/accessor-reader-writer.t b/t/accessor-reader-writer.t
index eed47f9..6185eb4 100644 (file)
--- a/t/accessor-reader-writer.t
+++ b/t/accessor-reader-writer.t
@@ -14,6 +14,20 @@ my @result;
     reader => 'get_one',
     writer => 'set_one',
   );
+
+  sub one {'sub'}
+
+  has two => (
+    is     => 'lazy',
+    default => sub { 2 },
+    reader => 'get_two',
+  );
+
+  has three => (
+    is     => 'rwp',
+    reader => 'get_three',
+    writer => 'set_three',
+  );
 }
 
 {
@@ -33,6 +47,14 @@ 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' );
+
+is( $foo->get_two, 2, 'lazy doesn\'t override reader' );
+
+is( $foo->can('two'), undef, 'reader+ro = no accessor' );
+
+ok( $foo->can('get_three'), 'rwp doesn\'t override reader');
+ok( $foo->can('set_three'), 'rwp doesn\'t override writer');
 
 ok( exception { $foo->get_one('blah') }, 'reader dies on write' );