[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;
    use Mouse;
    extends 'Parent';
}

is_deeply get_linear_isa('Parent'), [ 'Parent' ];
is_deeply 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;
	12	use Mouse;
	13	extends 'Parent';
	14	}
	15
	16	is_deeply get_linear_isa('Parent'), [ 'Parent' ];
	17	is_deeply get_linear_isa('Child'), [ 'Child', 'Parent' ];
	18