|
Packit |
4c8e34 |
use strict;
|
|
Packit |
4c8e34 |
use warnings;
|
|
Packit |
4c8e34 |
|
|
Packit |
4c8e34 |
use Test::More tests => 13;
|
|
Packit |
4c8e34 |
|
|
Packit |
4c8e34 |
use MRO::Compat;
|
|
Packit |
4c8e34 |
|
|
Packit |
4c8e34 |
{
|
|
Packit |
4c8e34 |
package AAA; our @ISA = qw//; use mro 'dfs';
|
|
Packit |
4c8e34 |
package BBB; our @ISA = qw/AAA/; use mro 'dfs';
|
|
Packit |
4c8e34 |
package CCC; our @ISA = qw/AAA/; use mro 'dfs';
|
|
Packit |
4c8e34 |
package DDD; our @ISA = qw/AAA/; use mro 'dfs';
|
|
Packit |
4c8e34 |
package EEE; our @ISA = qw/BBB CCC DDD/; use mro 'dfs';
|
|
Packit |
4c8e34 |
package FFF; our @ISA = qw/EEE DDD/; use mro 'dfs';
|
|
Packit |
4c8e34 |
package GGG; our @ISA = qw/FFF/; use mro 'dfs';
|
|
Packit |
4c8e34 |
|
|
Packit |
4c8e34 |
package AAA3; our @ISA = qw//;
|
|
Packit |
4c8e34 |
sub testsub { return $_[0] . '_first_in_dfs' }
|
|
Packit |
4c8e34 |
package BBB3; our @ISA = qw/AAA3/;
|
|
Packit |
4c8e34 |
package CCC3; our @ISA = qw/AAA3/;
|
|
Packit |
4c8e34 |
sub testsub { return $_[0] . '_first_in_c3' }
|
|
Packit |
4c8e34 |
package DDD3; our @ISA = qw/AAA3/;
|
|
Packit |
4c8e34 |
package EEE3; our @ISA = qw/BBB3 CCC3 DDD3/;
|
|
Packit |
4c8e34 |
package FFF3; our @ISA = qw/EEE3 DDD3/; use mro 'c3';
|
|
Packit |
4c8e34 |
package GGG3; our @ISA = qw/FFF3/; use mro 'c3';
|
|
Packit |
4c8e34 |
}
|
|
Packit |
4c8e34 |
|
|
Packit |
4c8e34 |
is(mro::get_mro('FFF3'), 'c3');
|
|
Packit |
4c8e34 |
|
|
Packit |
4c8e34 |
is_deeply(
|
|
Packit |
4c8e34 |
mro::get_linear_isa('GGG'),
|
|
Packit |
4c8e34 |
[ 'GGG', 'FFF', 'EEE', 'BBB', 'AAA', 'CCC', 'DDD' ],
|
|
Packit |
4c8e34 |
"get_linear_isa for GGG",
|
|
Packit |
4c8e34 |
);
|
|
Packit |
4c8e34 |
|
|
Packit |
4c8e34 |
is_deeply(
|
|
Packit |
4c8e34 |
mro::get_linear_isa('GGG3'),
|
|
Packit |
4c8e34 |
[ 'GGG3', 'FFF3', 'EEE3', 'BBB3', 'CCC3', 'DDD3', 'AAA3' ],
|
|
Packit |
4c8e34 |
"get_linear_isa for GGG3",
|
|
Packit |
4c8e34 |
);
|
|
Packit |
4c8e34 |
|
|
Packit |
4c8e34 |
SKIP: {
|
|
Packit |
4c8e34 |
skip "Does not work like this on 5.9.5+", 1 if $] > 5.009_004;
|
|
Packit |
4c8e34 |
is(FFF3->testsub(), 'FFF3_first_in_dfs', 'dfs resolution pre-init');
|
|
Packit |
4c8e34 |
}
|
|
Packit |
4c8e34 |
|
|
Packit |
4c8e34 |
Class::C3::initialize();
|
|
Packit |
4c8e34 |
|
|
Packit |
4c8e34 |
is(FFF3->testsub(), 'FFF3_first_in_c3', 'c3 resolution post-init');
|
|
Packit |
4c8e34 |
|
|
Packit |
4c8e34 |
mro::set_mro('FFF3', 'dfs');
|
|
Packit |
4c8e34 |
is(mro::get_mro('FFF3'), 'dfs');
|
|
Packit |
4c8e34 |
is_deeply(
|
|
Packit |
4c8e34 |
mro::get_linear_isa('FFF3'),
|
|
Packit |
4c8e34 |
[ 'FFF3', 'EEE3', 'BBB3', 'AAA3', 'CCC3', 'DDD3' ],
|
|
Packit |
4c8e34 |
"get_linear_isa for FFF3 (dfs)",
|
|
Packit |
4c8e34 |
);
|
|
Packit |
4c8e34 |
|
|
Packit |
4c8e34 |
is(FFF3->testsub(), 'FFF3_first_in_dfs', 'dfs resolution post- set_mro dfs');
|
|
Packit |
4c8e34 |
|
|
Packit |
4c8e34 |
is_deeply(
|
|
Packit |
4c8e34 |
mro::get_linear_isa('GGG3'),
|
|
Packit |
4c8e34 |
[ 'GGG3', 'FFF3', 'EEE3', 'BBB3', 'CCC3', 'DDD3', 'AAA3' ],
|
|
Packit |
4c8e34 |
"get_linear_isa for GGG3 (still c3)",
|
|
Packit |
4c8e34 |
);
|
|
Packit |
4c8e34 |
|
|
Packit |
4c8e34 |
mro::set_mro('FFF3', 'c3');
|
|
Packit |
4c8e34 |
is(mro::get_mro('FFF3'), 'c3');
|
|
Packit |
4c8e34 |
is_deeply(
|
|
Packit |
4c8e34 |
mro::get_linear_isa('FFF3'),
|
|
Packit |
4c8e34 |
[ 'FFF3', 'EEE3', 'BBB3', 'CCC3', 'DDD3', 'AAA3' ],
|
|
Packit |
4c8e34 |
"get_linear_isa for FFF3 (reset to c3 via set_mro)",
|
|
Packit |
4c8e34 |
);
|
|
Packit |
4c8e34 |
|
|
Packit |
4c8e34 |
eval "package FFF3; use mro 'dfs'";
|
|
Packit |
4c8e34 |
is(mro::get_mro('FFF3'), 'dfs');
|
|
Packit |
4c8e34 |
is_deeply(
|
|
Packit |
4c8e34 |
mro::get_linear_isa('FFF3'),
|
|
Packit |
4c8e34 |
[ 'FFF3', 'EEE3', 'BBB3', 'AAA3', 'CCC3', 'DDD3' ],
|
|
Packit |
4c8e34 |
"get_linear_isa for FFF3 (reset to dfs via 'use mro')",
|
|
Packit |
4c8e34 |
);
|