[gitmo/Mouse.git] / t / 001_mouse / 064-class-c3.t

#!perl
use strict;
use warnings;

BEGIN{
    eval{ require MRO::Compat };
    eval{ require mro };
}

use Test::More defined(&mro::get_linear_isa)
    ? (tests => 1)
    : (skip_all => 'This test requires mro');

{
    package Base;
    use Mouse;

    package Left;
    use Mouse;
    extends 'Base';

    package Right;
    use Mouse;
    extends 'Base';

    package Diamond;
    use Mouse;
    use mro 'c3';

    extends qw(Left Right);

}

is_deeply([Diamond->meta->linearized_isa], [qw(Diamond Left Right Base Mouse::Object)]);
Commit	Line	Data
35c4ef08	1	#!perl
	2	use strict;
	3	use warnings;
	4
	5	BEGIN{
	6	eval{ require MRO::Compat };
	7	eval{ require mro };
	8	}
	9
	10	use Test::More defined(&mro::get_linear_isa)
	11	? (tests => 1)
	12	: (skip_all => 'This test requires mro');
	13
	14	{
	15	package Base;
	16	use Mouse;
	17
	18	package Left;
	19	use Mouse;
	20	extends 'Base';
	21
	22	package Right;
	23	use Mouse;
	24	extends 'Base';
	25
	26	package Diamond;
	27	use Mouse;
	28	use mro 'c3';
	29
	30	extends qw(Left Right);
	31
	32	}
	33
	34	is_deeply([Diamond->meta->linearized_isa], [qw(Diamond Left Right Base Mouse::Object)]);