[gitmo/Mouse.git] / t / 800_shikabased / 011-util-linear-isa.t

use strict;
use warnings;
use Mouse::Util 'get_linear_isa';
use Test::More tests => 2;

{
    package Parent;
}

{
    package Child;
    unshift @Child::ISA, 'Parent';
}

is_deeply join(', ', @{get_linear_isa('Parent')}), 'Parent';
is_deeply join(', ', @{get_linear_isa('Child')}),  'Child, Parent';
Commit	Line	Data
272a1930	1	use strict;
	2	use warnings;
	3	use Mouse::Util 'get_linear_isa';
	4	use Test::More tests => 2;
	5
	6	{
	7	package Parent;
	8	}
	9
	10	{
	11	package Child;
302b6751	12	unshift @Child::ISA, 'Parent';
272a1930	13	}
272a1930	14
302b6751	15	is_deeply join(', ', @{get_linear_isa('Parent')}), 'Parent';
302b6751	16	is_deeply join(', ', @{get_linear_isa('Child')}), 'Child, Parent';
272a1930	17