useful and detailed errors for default checker in attrib generation

[gitmo/Moo.git] / t / method-generate-accessor.t

diff --git a/t/method-generate-accessor.t b/t/method-generate-accessor.t
index 7043a4b..f66acfb 100644 (file)
--- a/t/method-generate-accessor.t
+++ b/t/method-generate-accessor.t
@@ -35,6 +35,11 @@ like(
   qr/Invalid default/, 'default - arrayref rejected'
 );
 
+like(
+  exception { $gen->generate_method('Foo' => 'five' => { is => 'ro', default => Foo->new }) },
+  qr/Invalid default/, 'default - non-code-convertible object rejected'
+);
+
 is(
   exception { $gen->generate_method('Foo' => 'six' => { is => 'ro', default => sub { 5 } }) },
   undef, 'default - coderef accepted'