exception-lazyattributeneedsadefault.t

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;