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

#!/usr/bin/perl

use strict;
use warnings;

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;
86629f93	5
	6	use Test::More tests => 1;
	7	use Test::Exception;
	8
	9	{
	10	package Foo;
	11	use Moose;
	12	has 'foo' => ( is => 'ro' );
	13	}
	14
	15	lives_ok {
	16	Foo->new(undef);
	17	} '... passing in undef just gets ignored';
	18
	19
	20
	21