Let the user know which constraint they have violated in the confessed message

[gitmo/MooseX-AttributeHelpers.git] / t / 010_array_from_role.t

#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 3;
use Test::Exception;

BEGIN {
    use_ok('MooseX::AttributeHelpers');   
}

{
    package Foo;
    use Moose;
    
    has 'bar' => (is => 'rw');
    
    package Stuffed::Role;
    use Moose::Role;

    has 'options' => (
        metaclass => 'Collection::Array',
        is        => 'ro',
        isa       => 'ArrayRef[Foo]',
    );
    
    package Bulkie::Role;
    use Moose::Role;

    has 'stuff' => (
        metaclass => 'Collection::Array',
        is        => 'ro',
        isa       => 'ArrayRef',
        provides  => {
            'get' => 'get_stuff'
        }
    );    
    
    package Stuff;
    use Moose;
    
    ::lives_ok {
        with 'Stuffed::Role';
    } '... this should work correctly';
    
    ::lives_ok {
        with 'Bulkie::Role';
    } '... this should work correctly';    
    
}