Moose-2.1405HEADMoose-2.1405master

1 files changed, 66 insertions, 0 deletions

diff --git a/t/exceptions/exception-lazyattributeneedsadefault.t b/t/exceptions/exception-lazyattributeneedsadefault.t
new file mode 100644
index 0000000..c0eb4a2
--- /dev/null
+++ b/t/exceptions/exception-lazyattributeneedsadefault.t
@@ -0,0 +1,66 @@
+use strict;
+use warnings;
+
+use Test::More;
+use Test::Fatal;
+
+use Moose::Util 'throw_exception';
+
+{
+    package Foo;
+    use Moose;
+
+    has 'foo' => (
+        is => 'ro'
+    );
+
+    has 'bar' => (
+        is => 'ro'
+    );
+}
+
+{
+    my $exception = exception {
+            throw_exception( LazyAttributeNeedsADefault => attribute_name => "foo",
+                                                           attribute      => Foo->meta->get_attribute("bar")
+                           );
+    };
+
+    like(
+        $exception,
+        qr/\Qattribute_name (foo) does not match attribute->name (bar)/,
+        "you have given attribute_name as 'foo' and attribute->name as 'bar'");
+
+    isa_ok(
+        $exception,
+        "Moose::Exception::AttributeNamesDoNotMatch",
+        "you have given attribute_name as 'foo' and attribute->name as 'bar'");
+
+    is(
+        $exception->attribute_name,
+        "foo",
+        "you have given attribute_name as 'foo' and attribute->name as 'bar'");
+
+    is(
+        $exception->attribute->name,
+        "bar",
+        "you have given attribute_name as 'foo' and attribute->name as 'bar'");
+}
+
+{
+    my $exception = exception {
+        throw_exception("LazyAttributeNeedsADefault");
+    };
+
+    like(
+        $exception,
+        qr/\QYou need to give attribute or attribute_name or both/,
+        "please give either attribute or attribute_name");
+
+    isa_ok(
+        $exception,
+        "Moose::Exception::NeitherAttributeNorAttributeNameIsGiven",
+        "please give either attribute or attribute_name");
+}
+
+done_testing;