moose-override-attribute-from-moo-role.t

use strict;
use warnings;
use lib 't/lib';

use Test::More;
use CaptureException;

{
    package MyRole;
    use Moo::Role;

    has foo => (
        is => 'ro',
        required => 1,
    );
}
{
    package MyClass;
    use Moose;

    with 'MyRole';

    has '+foo' => (
        isa => 'Str',
    );
}

is(
    exception { MyClass->new(foo => 'bar') },
    undef,
    'construct'
);
ok(
    exception { MyClass->new(foo => []) },
    'no construct, constraint works'
);
ok(
    exception { MyClass->new() },
    'no construct - require still works'
);

done_testing;