[gitmo/Mouse.git] / t / 001_mouse / 811-util-linear-isa.t

use strict;
use warnings;
use Test::More tests => 2;

{
    package Parent;
    use Mouse;
}

{
    package Child;
    use Mouse;
    extends 'Parent';
}

is_deeply join(', ', Parent->meta->linearized_isa), 'Parent, Mouse::Object';
is_deeply join(', ', Child->meta->linearized_isa),  'Child, Parent, Mouse::Object';
Commit	Line	Data
272a1930	1	use strict;
272a1930	2	use warnings;
272a1930	3	use Test::More tests => 2;
	4
	5	{
	6	package Parent;
003c5297	7	use Mouse;
272a1930	8	}
	9
	10	{
	11	package Child;
003c5297	12	use Mouse;
003c5297	13	extends 'Parent';
272a1930	14	}
272a1930	15
003c5297	16	is_deeply join(', ', Parent->meta->linearized_isa), 'Parent, Mouse::Object';
003c5297	17	is_deeply join(', ', Child->meta->linearized_isa), 'Child, Parent, Mouse::Object';
272a1930	18