test lazy coerce

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

diff --git a/t/accessor-default.t b/t/accessor-default.t
index af6e448..fd1108b 100644 (file)
--- a/t/accessor-default.t
+++ b/t/accessor-default.t
@@ -1,18 +1,27 @@
 use strictures 1;
 use Test::More;
 
+my $c_ran;
 {
   package Foo;
 
   use Sub::Quote;
-  use Class::Tiny;
+  use Moo;
 
   has one => (is => 'ro', lazy => 1, default => quote_sub q{ {} });
   has two => (is => 'ro', lazy => 1, builder => '_build_two');
   sub _build_two { {} }
   has three => (is => 'ro', default => quote_sub q{ {} });
-  has four => (is => 'ro', default => '_build_four');
+  has four => (is => 'ro', builder => '_build_four');
   sub _build_four { {} }
+  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{ {} });
+  has eight => (is => 'ro', builder => '_build_eight', coerce => sub { $c_ran = 1; $_[0] });
+  sub _build_eight { {} }
+  has nine => (is => 'lazy', coerce => sub { $c_ran = 1; $_[0] });
+  sub _build_nine { {} }
 }
 
 sub check {
@@ -27,4 +36,22 @@ check one => map Foo->new->one, 1..2;
 
 check two => map Foo->new->two, 1..2;
 
+check three => map Foo->new->{three}, 1..2;
+
+check four => map Foo->new->{four}, 1..2;
+
+check five => map Foo->new->{five}, 1..2;
+
+check six => map Foo->new->{six}, 1..2;
+
+check seven => map Foo->new->{seven}, 1..2;
+
+check eight => map Foo->new->{eight}, 1..2;
+ok($c_ran, 'coerce defaults');
+
+$c_ran = 0;
+
+check nine => map Foo->new->nine, 1..2;
+ok($c_ran, 'coerce lazy default');
+
 done_testing;