support for default at construction time

[gitmo/Role-Tiny.git] / t / accessor-default.t

diff --git a/t/accessor-default.t b/t/accessor-default.t
index af6e448..80786d0 100644 (file)
--- a/t/accessor-default.t
+++ b/t/accessor-default.t
@@ -11,7 +11,7 @@ use Test::More;
   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 { {} }
 }
 
@@ -27,4 +27,8 @@ 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;
+
 done_testing;