[gitmo/Moose.git] / t / bugs / native_trait_handles_bad_value.t

use strict;
use warnings;

use Test::More;
use Test::Fatal;

{

    package Bug;
    use Moose;

    ::like(
        ::exception{ has member => (
                is      => 'ro',
                isa     => 'HashRef',
                traits  => ['Hash'],
                handles => {
                    method => sub { }
                },
            );
            },
        qr/\QAll values passed to handles must be strings or ARRAY references, not CODE/,
        'bad value in handles throws a useful error'
    );
}

done_testing;
Commit	Line	Data
da32bf87	1	use strict;
	2	use warnings;
	3
	4	use Test::More;
	5	use Test::Fatal;
	6
	7	{
	8
	9	package Bug;
	10	use Moose;
	11
	12	::like(
	13	::exception{ has member => (
	14	is => 'ro',
	15	isa => 'HashRef',
	16	traits => ['Hash'],
	17	handles => {
	18	method => sub { }
	19	},
	20	);
	21	},
	22	qr/\QAll values passed to handles must be strings or ARRAY references, not CODE/,
	23	'bad value in handles throws a useful error'
	24	);
	25	}
	26
	27	done_testing;