die wrap with prefix for attribute isa

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

diff --git a/t/accessor-isa.t b/t/accessor-isa.t
index 1e8f88f..69d66c1 100644 (file)
--- a/t/accessor-isa.t
+++ b/t/accessor-isa.t
@@ -11,7 +11,8 @@ sub run_for {
 
   like(
     exception { $obj->less_than_three(4) },
-    qr/4 is not less than three/, "exception thrown on bad set (${class})"
+    qr/isa check for "less_than_three" failed: 4 is not less than three/,
+    "exception thrown on bad set (${class})"
   );
 
   is($obj->less_than_three, 1, "initial value remains after bad set (${class})");
@@ -29,7 +30,7 @@ sub run_for {
   is(exception { $class->new }, undef, "no exception with no value (${class})");
   like(
     exception { $class->new(less_than_three => 12) },
-    qr/12 is not less than three/,
+    qr/isa check for "less_than_three" failed: 12 is not less than three/,
     "exception thrown on bad constructor arg (${class})"
   );
 }
@@ -84,4 +85,23 @@ run_for 'Bar';
 
 run_for 'Baz';
 
+{
+  package LazyFoo;
+
+  use Moo;
+
+  has less_than_three => (
+    is => 'lazy',
+    isa => sub { die "$_[0] is not less than three" unless $_[0] < 3 }
+  );
+
+  sub _build_less_than_three { 4 }
+}
+
+like(
+  exception { LazyFoo->new->less_than_three },
+  qr/isa check for "less_than_three" failed: 4 is not less than three/,
+  "exception thrown on bad builder return value (LazyFoo)"
+);
+
 done_testing;