[gitmo/MRO-Compat.git] / t / 10basic.t


use strict;
use warnings;

use Test::More tests => 2;

BEGIN {
    use_ok('MRO::Compat');
}

{
    package AAA; our @ISA = qw//;
    package BBB; our @ISA = qw/AAA/;
    package CCC; our @ISA = qw/AAA/;
    package DDD; our @ISA = qw/AAA/;
    package EEE; our @ISA = qw/BBB CCC DDD/;
    package FFF; our @ISA = qw/EEE DDD/;
    package GGG; our @ISA = qw/FFF/;
}

is_deeply(
  mro::get_linear_isa('GGG'),
  [ 'GGG', 'FFF', 'EEE', 'BBB', 'AAA', 'CCC', 'DDD' ]
);
Commit	Line	Data
ed71cabb	1
	2	use strict;
	3	use warnings;
	4
	5	use Test::More tests => 2;
	6
	7	BEGIN {
	8	use_ok('MRO::Compat');
	9	}
	10
	11	{
	12	package AAA; our @ISA = qw//;
	13	package BBB; our @ISA = qw/AAA/;
	14	package CCC; our @ISA = qw/AAA/;
	15	package DDD; our @ISA = qw/AAA/;
	16	package EEE; our @ISA = qw/BBB CCC DDD/;
	17	package FFF; our @ISA = qw/EEE DDD/;
	18	package GGG; our @ISA = qw/FFF/;
	19	}
	20
	21	is_deeply(
	22	mro::get_linear_isa('GGG'),
	23	[ 'GGG', 'FFF', 'EEE', 'BBB', 'AAA', 'CCC', 'DDD' ]
	24	);