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

use strict;
use warnings;

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

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

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

}

package main;

with_immutable {
    {
        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);
    }
} 'Foo';

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