[gitmo/Mouse.git] / t / 001_mouse / 301-bugs-non-mouse.t

#!/usr/bin/perl

use strict;
use warnings;

use Test::More 'no_plan';
use Test::Exception;

{
    package Foo;
    use Mouse;

    has foo => ( is => "rw" );

    package Bar;
    sub oink { "oink" }

    package Gorch;
    use Mouse;

    extends qw(Bar Foo);

    ::lives_ok{
        has '+foo' => ( default => "the default" );
    } 'inherit attr when @ISA contains a non Mouse class before a Mouse class with the base attr';
}

{
    my $g = Gorch->new;

    is( $g->foo, "the default", "inherited attribute" );
}
Commit	Line	Data
9b2c1c4e	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5
	6	use Test::More 'no_plan';
eab81545	7	use Test::Exception;
9b2c1c4e	8
	9	{
	10	package Foo;
	11	use Mouse;
	12
	13	has foo => ( is => "rw" );
	14
	15	package Bar;
	16	sub oink { "oink" }
	17
	18	package Gorch;
	19	use Mouse;
	20
	21	extends qw(Bar Foo);
	22
	23	::lives_ok{
	24	has '+foo' => ( default => "the default" );
	25	} 'inherit attr when @ISA contains a non Mouse class before a Mouse class with the base attr';
	26	}
	27
	28	{
	29	my $g = Gorch->new;
	30
	31	is( $g->foo, "the default", "inherited attribute" );
	32	}
	33
	34