X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Faccessor-default.t;h=1f3fbacb4305692ffbcc3f7cf30700d5d1dbe7f9;hb=49d332df39656855cadaa6d4775f6df1a238b7c9;hp=2cec9c04e0b4ac7a5a4793955dd406a0df5392cc;hpb=b1eebd55fe3d34b6afa73a4880737dc91379b71e;p=gitmo%2FMoo.git

diff --git a/t/accessor-default.t b/t/accessor-default.t
index 2cec9c0..1f3fbac 100644
--- a/t/accessor-default.t
+++ b/t/accessor-default.t
@@ -13,6 +13,7 @@ use Test::More;
   has three => (is => 'ro', default => quote_sub q{ {} });
   has four => (is => 'ro', builder => '_build_four');
   sub _build_four { {} }
+  has five => (is => 'ro', init_arg => undef, default => sub { {} });
 }
 
 sub check {
@@ -31,4 +32,6 @@ check three => map Foo->new->{three}, 1..2;
 
 check four => map Foo->new->{four}, 1..2;
 
+check five => map Foo->new->{five}, 1..2;
+
 done_testing;