From: Graham Knop <haarg@haarg.org>
Date: Fri, 22 Mar 2013 23:03:41 +0000 (-0400)
Subject: tests for eager false non-ref defaults
X-Git-Tag: v1.002000~17
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2fa823de095e7a25ed0278fda3de6c1690d9d19c;hp=ef4ff8da82d5b2c2635da073084ad2a14b4d2050;p=gitmo%2FMoo.git

tests for eager false non-ref defaults
---

diff --git a/t/accessor-default.t b/t/accessor-default.t
index 58eac3e..fd50924 100644
--- a/t/accessor-default.t
+++ b/t/accessor-default.t
@@ -23,6 +23,9 @@ my $c_ran;
   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 {
@@ -56,5 +59,8 @@ 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;