[gitmo/Moose.git] / t / 100_bugs / 030_coerce_without_coercion.t

use strict;
use warnings;

use Test::More;
use Test::Exception;
use Test::Moose;

{
    package Foo;

    use Moose::Deprecated -api_version => '1.08';
    use Moose;

    has x => (
        is     => 'rw',
        isa    => 'HashRef',
        coerce => 1,
    );
}

with_immutable {
    lives_ok { Foo->new( x => {} ) }
    'Setting coerce => 1 without a coercion on the type does not cause an error in the constructor';

    lives_ok { Foo->new->x( {} ) }
    'Setting coerce => 1 without a coercion on the type does not cause an error when setting the attribut';

    lives_ok { Foo->new( x => 42 ) } 'asasf';
}
'Foo';

done_testing;
Commit	Line	Data
4ee48f8e	1	use strict;
	2	use warnings;
	3
	4	use Test::More;
	5	use Test::Exception;
	6	use Test::Moose;
	7
	8	{
	9	package Foo;
	10
	11	use Moose::Deprecated -api_version => '1.08';
	12	use Moose;
	13
	14	has x => (
	15	is => 'rw',
	16	isa => 'HashRef',
	17	coerce => 1,
	18	);
	19	}
	20
	21	with_immutable {
	22	lives_ok { Foo->new( x => {} ) }
	23	'Setting coerce => 1 without a coercion on the type does not cause an error in the constructor';
	24
	25	lives_ok { Foo->new->x( {} ) }
	26	'Setting coerce => 1 without a coercion on the type does not cause an error when setting the attribut';
	27
	28	lives_ok { Foo->new( x => 42 ) } 'asasf';
	29	}
	30	'Foo';
	31
	32	done_testing;