[gitmo/Mouse.git] / t / 029-new.t

#!/usr/bin/env perl
use strict;
use warnings;
use Test::More tests => 7;
use Test::Exception;

do {
    package Class;
    use Mouse;

    has 'x';

    has y => (
        is => 'ro',
    );

    has z => (
        is => 'rw',
    );
};

my $object = Class->new({x => 1, y => 2, z => 3});
is($object->{x}, 1);
is($object->y, 2);
is($object->z, 3);

throws_ok {
    Class->new('non-hashref scalar');
} qr/Single parameters to new\(\) must be a HASH ref/;

throws_ok {
    Class->new(undef);
} qr/Single parameters to new\(\) must be a HASH ref/;

Class->meta->make_immutable;

throws_ok {
    Class->new('non-hashref scalar');
} qr/Single parameters to new\(\) must be a HASH ref/;

throws_ok {
    Class->new(undef);
} qr/Single parameters to new\(\) must be a HASH ref/;
Commit	Line	Data
39d38928	1	#!/usr/bin/env perl
	2	use strict;
	3	use warnings;
c9aefe26	4	use Test::More tests => 7;
eab81545	5	use Test::Exception;
39d38928	6
	7	do {
	8	package Class;
	9	use Mouse;
	10
	11	has 'x';
	12
	13	has y => (
	14	is => 'ro',
	15	);
	16
	17	has z => (
	18	is => 'rw',
	19	);
	20	};
	21
	22	my $object = Class->new({x => 1, y => 2, z => 3});
	23	is($object->{x}, 1);
	24	is($object->y, 2);
	25	is($object->z, 3);
	26
	27	throws_ok {
	28	Class->new('non-hashref scalar');
	29	} qr/Single parameters to new\(\) must be a HASH ref/;
	30
c9aefe26	31	throws_ok {
069668c4	32	Class->new(undef);
c9aefe26	33	} qr/Single parameters to new\(\) must be a HASH ref/;
	34
	35	Class->meta->make_immutable;
	36
	37	throws_ok {
	38	Class->new('non-hashref scalar');
	39	} qr/Single parameters to new\(\) must be a HASH ref/;
069668c4	40
c9aefe26	41	throws_ok {
	42	Class->new(undef);
	43	} qr/Single parameters to new\(\) must be a HASH ref/;