[gitmo/Mouse.git] / t / 300_immutable / 101-immutable-default.t

use strict;
use warnings;

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

{
    package Foo;
    use Mouse;

    #two checks because the inlined methods are different when
    #there is a TC present.
    has 'foos' => ( is => 'rw', default => 'DEFAULT' );
    has 'bars' => ( is => 'rw', default => 300100 );
    has 'bazs' => ( is => 'rw', default => sub { +{} } );

}

lives_ok { Foo->meta->make_immutable }
    'Immutable meta with single BUILD';

my $f = Foo->new;
isa_ok $f, 'Foo';
is $f->foos, 'DEFAULT', 'str default';
is $f->bars, 300100, 'int default';
is ref($f->bazs), 'HASH', 'code default';
Commit	Line	Data
9864f0e4	1	use strict;
	2	use warnings;
	3
	4	use Test::More tests => 5;
	5	use Test::Exception;
	6
	7	{
	8	package Foo;
	9	use Mouse;
	10
	11	#two checks because the inlined methods are different when
	12	#there is a TC present.
	13	has 'foos' => ( is => 'rw', default => 'DEFAULT' );
	14	has 'bars' => ( is => 'rw', default => 300100 );
	15	has 'bazs' => ( is => 'rw', default => sub { +{} } );
	16
	17	}
	18
	19	lives_ok { Foo->meta->make_immutable }
	20	'Immutable meta with single BUILD';
	21
	22	my $f = Foo->new;
	23	isa_ok $f, 'Foo';
	24	is $f->foos, 'DEFAULT', 'str default';
	25	is $f->bars, 300100, 'int default';
	26	is ref($f->bazs), 'HASH', 'code default';
	27