[gitmo/Moose.git] / t / 100_bugs / 008_new_w_undef.t

#!/usr/bin/perl

use strict;
use warnings;
use Moose;

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

{
    package Foo;
    use Moose;    
    has 'foo' => ( is => 'ro' );
}

lives_ok {
    Foo->new(undef);
} '... passing in undef just gets ignored';
Commit	Line	Data
86629f93	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5	use Moose;
	6
	7	use Test::More tests => 1;
	8	use Test::Exception;
	9
	10	{
	11	package Foo;
	12	use Moose;
	13	has 'foo' => ( is => 'ro' );
	14	}
	15
	16	lives_ok {
	17	Foo->new(undef);
	18	} '... passing in undef just gets ignored';
	19
	20
	21
	22