t/20mros.t

   1
   2 use strict;
   3 use warnings;
   4
   5 use Test::More tests => 8;
   6
   7 BEGIN {
   8     use_ok('MRO::Compat');
   9 }
  10
  11 {
  12     package AAA; our @ISA = qw//; use mro 'dfs';
  13     package BBB; our @ISA = qw/AAA/; use mro 'dfs';
  14     package CCC; our @ISA = qw/AAA/; use mro 'dfs';
  15     package DDD; our @ISA = qw/AAA/; use mro 'dfs';
  16     package EEE; our @ISA = qw/BBB CCC DDD/; use mro 'dfs';
  17     package FFF; our @ISA = qw/EEE DDD/; use mro 'dfs';
  18     package GGG; our @ISA = qw/FFF/; use mro 'dfs';
  19
  20     package AAA3; our @ISA = qw//;
  21     sub testsub { return $_[0] . '_first_in_dfs' }
  22     package BBB3; our @ISA = qw/AAA3/;
  23     package CCC3; our @ISA = qw/AAA3/;
  24     sub testsub { return $_[0] . '_first_in_c3' }
  25     package DDD3; our @ISA = qw/AAA3/;
  26     package EEE3; our @ISA = qw/BBB3 CCC3 DDD3/;
  27     package FFF3; our @ISA = qw/EEE3 DDD3/; use mro 'c3';
  28     package GGG3; our @ISA = qw/FFF3/; use mro 'c3';
  29 }
  30
  31 is_deeply(
  32   mro::get_linear_isa('GGG'),
  33   [ 'GGG', 'FFF', 'EEE', 'BBB', 'AAA', 'CCC', 'DDD' ],
  34   "get_linear_isa for GGG",
  35 );
  36
  37 is_deeply(
  38   mro::get_linear_isa('GGG3'),
  39   [ 'GGG3', 'FFF3', 'EEE3', 'BBB3', 'CCC3', 'DDD3', 'AAA3' ],
  40   "get_linear_isa for GGG3",
  41 );
  42
  43 is(FFF3->testsub(), 'FFF3_first_in_dfs', 'dfs resolution pre-init');
  44
  45 Class::C3::initialize();
  46
  47 is(FFF3->testsub(), 'FFF3_first_in_c3', 'c3 resolution post-init');
  48
  49 mro::set_mro('FFF3', 'dfs');
  50 is_deeply(
  51   mro::get_linear_isa('FFF3'),
  52   [ 'FFF3', 'EEE3', 'BBB3', 'AAA3', 'CCC3', 'DDD3' ],
  53   "get_linear_isa for FFF3 (dfs)",
  54 );
  55
  56 is(FFF3->testsub(), 'FFF3_first_in_dfs', 'dfs resolution post- setmro dfs');
  57
  58 is_deeply(
  59   mro::get_linear_isa('GGG3'),
  60   [ 'GGG3', 'FFF3', 'EEE3', 'BBB3', 'CCC3', 'DDD3', 'AAA3' ],
  61   "get_linear_isa for GGG3 (still c3)",
  62 );