[gitmo/Moose.git] / t / attributes / default_undef.t

#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use Test::Moose;

{
    package Foo;
    use Moose;

    has foo => (
        is        => 'ro',
        isa       => 'Maybe[Int]',
        default   => undef,
        predicate => 'has_foo',
    );
}

with_immutable {
    is(Foo->new->foo, undef);
    ok(Foo->new->has_foo);
} 'Foo';

done_testing;
Commit	Line	Data
47bfa72e	1	#!/usr/bin/env perl
	2	use strict;
	3	use warnings;
	4	use Test::More;
	5	use Test::Moose;
	6
	7	{
	8	package Foo;
	9	use Moose;
	10
	11	has foo => (
	12	is => 'ro',
	13	isa => 'Maybe[Int]',
	14	default => undef,
	15	predicate => 'has_foo',
	16	);
	17	}
	18
	19	with_immutable {
	20	is(Foo->new->foo, undef);
	21	ok(Foo->new->has_foo);
	22	} 'Foo';
	23
	24	done_testing;