implemented get_isarev, interface now complete, needs more tests

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

use strict;
use warnings;

use Test::More tests => 5;

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' ]
);

is_deeply(
  [mro::get_isarev('GGG')],
  [],
);

is_deeply(
  [mro::get_isarev('DDD')],
  [ 'EEE', 'FFF', 'GGG' ],
);

is_deeply(
  [mro::get_isarev('AAA')],
  [ 'BBB', 'CCC', 'DDD', 'EEE', 'FFF', 'GGG' ],
);