[gitmo/MooseX-UndefTolerant.git] / t / immutable.t

use Test::More;

package Foo;
use Moose;
use MooseX::UndefTolerant;

has 'bar' => (
    is => 'ro',
    isa => 'Num',
    predicate => 'has_bar'
);

__PACKAGE__->meta->make_immutable;

package main;

{
    my $foo = Foo->new;
    ok(!$foo->has_bar);
}

{
    my $foo = Foo->new(bar => undef);
    ok(!$foo->has_bar);
}

{
    my $foo = Foo->new(bar => 1234);
    cmp_ok($foo->bar, 'eq', 1234);
    ok($foo->has_bar);
}

done_testing;
Commit	Line	Data
46e1f0a3	1	use Test::More;
	2
	3	package Foo;
	4	use Moose;
	5	use MooseX::UndefTolerant;
	6
	7	has 'bar' => (
	8	is => 'ro',
	9	isa => 'Num',
	10	predicate => 'has_bar'
	11	);
	12
	13	__PACKAGE__->meta->make_immutable;
	14
	15	package main;
	16
	17	{
	18	my $foo = Foo->new;
	19	ok(!$foo->has_bar);
	20	}
	21
	22	{
	23	my $foo = Foo->new(bar => undef);
	24	ok(!$foo->has_bar);
	25	}
	26
	27	{
	28	my $foo = Foo->new(bar => 1234);
	29	cmp_ok($foo->bar, 'eq', 1234);
	30	ok($foo->has_bar);
	31	}
	32
	33	done_testing;