oops, :early was added in 1.04, not 0.94

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

use strict;
use warnings;

use Test::More tests => 7;
use Test::Fatal;
use Test::Moose;
use Test::NoWarnings 1.04 ':early';

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

has 'bar' => (
    is => 'ro',
    isa => 'Num',
    init_arg => undef,
);
}

package main;

with_immutable
{
    is(exception { my $foo = Foo->new }, undef, 'constructed with no args');

    is(exception { my $foo = Foo->new(bar => undef) }, undef, 'constructed with undef value');

    is(exception { my $foo = Foo->new(bar => 1234) }, undef, 'constructed with defined value');
} 'Foo';