[gitmo/Mouse.git] / t / 001_mouse / 030-has-plus.t

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

do {
    package Class;
    use Mouse;

    has attr => (
        is  => 'rw',
        isa => 'Bool',
    );

    package Child;
    use Mouse;
    extends 'Class';

    has '+attr' => (
        default => 1,
    );
};

my $obj = Class->new;
ok(!$obj->attr, 'has + does not affect the superclass');

my $obj2 = Child->new;
ok($obj2->attr, 'has + combines child attribute with parent');

do {
    package Child2;
    use Mouse;
    extends 'Class';

    ::throws_ok {
        has '+nonexistent' => (
            is => 'rw',
        );
    } qr/Could not find an attribute by the name of 'nonexistent' to inherit from/;
};
Commit	Line	Data
7e2909e5	1	#!/usr/bin/env perl
	2	use strict;
	3	use warnings;
a02698f1	4	use Test::More tests => 3;
eab81545	5	use Test::Exception;
7e2909e5	6
	7	do {
	8	package Class;
	9	use Mouse;
	10
	11	has attr => (
	12	is => 'rw',
	13	isa => 'Bool',
	14	);
	15
	16	package Child;
	17	use Mouse;
	18	extends 'Class';
	19
	20	has '+attr' => (
	21	default => 1,
	22	);
	23	};
	24
	25	my $obj = Class->new;
	26	ok(!$obj->attr, 'has + does not affect the superclass');
	27
	28	my $obj2 = Child->new;
	29	ok($obj2->attr, 'has + combines child attribute with parent');
	30
a02698f1	31	do {
	32	package Child2;
	33	use Mouse;
	34	extends 'Class';
	35
	36	::throws_ok {
	37	has '+nonexistent' => (
	38	is => 'rw',
	39	);
	40	} qr/Could not find an attribute by the name of 'nonexistent' to inherit from/;
	41	};
	42