X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Faccessor-default.t;h=3c02d7530d0a9e696d2f0bbd44b13928e805bcbf;hb=9dc13bea0bcd6910d704df85dd8287c53200915b;hp=1f3fbacb4305692ffbcc3f7cf30700d5d1dbe7f9;hpb=d02da2bc41a7f450a64ef79a571a889e73f690d6;p=gitmo%2FMoo.git

diff --git a/t/accessor-default.t b/t/accessor-default.t
index 1f3fbac..3c02d75 100644
--- a/t/accessor-default.t
+++ b/t/accessor-default.t
@@ -14,6 +14,8 @@ use Test::More;
   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 { {} }
 }
 
 sub check {
@@ -34,4 +36,6 @@ check four => map Foo->new->{four}, 1..2;
 
 check five => map Foo->new->{five}, 1..2;
 
+check six => map Foo->new->{six}, 1..2;
+
 done_testing;