Silence warning in pre-5.8.3 weaken test

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

diff --git a/t/accessor-default.t b/t/accessor-default.t
index fd1108b..fd50924 100644 (file)
--- a/t/accessor-default.t
+++ b/t/accessor-default.t
@@ -22,6 +22,10 @@ my $c_ran;
   sub _build_eight { {} }
   has nine => (is => 'lazy', coerce => sub { $c_ran = 1; $_[0] });
   sub _build_nine { {} }
+  has ten => (is => 'lazy', default => 5 );
+  has eleven => (is => 'ro', default => 5 );
+  has twelve => (is => 'lazy', default => 0 );
+  has thirteen => (is => 'ro', default => 0 );
 }
 
 sub check {
@@ -54,4 +58,9 @@ $c_ran = 0;
 check nine => map Foo->new->nine, 1..2;
 ok($c_ran, 'coerce lazy default');
 
+is(Foo->new->ten, 5, 'non-ref default');
+is(Foo->new->eleven, 5, 'eager non-ref default');
+is(Foo->new->twelve, 0, 'false non-ref default');
+is(Foo->new->thirteen, 0, 'eager false non-ref default');
+
 done_testing;