ignore required when default or builder is present

[gitmo/Moo.git] / t / accessor-default.t

diff --git a/t/accessor-default.t b/t/accessor-default.t
index 3c02d75..5ff20f8 100644 (file)
--- a/t/accessor-default.t
+++ b/t/accessor-default.t
@@ -16,6 +16,7 @@ use Test::More;
   has five => (is => 'ro', init_arg => undef, default => sub { {} });
   has six => (is => 'ro', builder => 1);
   sub _build_six { {} }
+  has seven => (is => 'ro', required => 1, default => quote_sub q{ {} });
 }
 
 sub check {
@@ -38,4 +39,6 @@ check five => map Foo->new->{five}, 1..2;
 
 check six => map Foo->new->{six}, 1..2;
 
+check seven => map Foo->new->{seven}, 1..2;
+
 done_testing;