t/003_merge.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 2;
   7
   8 BEGIN {
   9     use_ok('Algorithm::C3');
  10 }
  11
  12 =pod
  13
  14
  15 This example is take from: http://www.python.org/2.3/mro.html
  16
  17 "My second example"
  18 class O: pass
  19 class F(O): pass
  20 class E(O): pass
  21 class D(O): pass
  22 class C(D,F): pass
  23 class B(E,D): pass
  24 class A(B,C): pass
  25
  26                            6
  27                           ---
  28 Level 3                  | O |
  29                        /  ---  \
  30                       /    |    \
  31                      /     |     \
  32                     /      |      \
  33                   ---     ---    ---
  34 Level 2        2 | E | 4 | D |  | F | 5
  35                   ---     ---    ---
  36                    \      / \     /
  37                     \    /   \   /
  38                      \  /     \ /
  39                       ---     ---
  40 Level 1            1 | B |   | C | 3
  41                       ---     ---
  42                        \       /
  43                         \     /
  44                           ---
  45 Level 0                0 | A |
  46                           ---
  47
  48 >>> A.mro()
  49 (<class '__main__.A'>, <class '__main__.B'>, <class '__main__.E'>,
  50 <class '__main__.C'>, <class '__main__.D'>, <class '__main__.F'>,
  51 <type 'object'>)
  52
  53 =cut
  54
  55 {
  56     package Test::O;
  57
  58     sub supers {
  59         no strict 'refs';
  60         @{$_[0] . '::ISA'};
  61     }
  62
  63     package Test::F;
  64     use base 'Test::O';
  65
  66     package Test::E;
  67     use base 'Test::O';
  68
  69     package Test::D;
  70     use base 'Test::O';
  71
  72     package Test::C;
  73     use base ('Test::D', 'Test::F');
  74
  75     package Test::B;
  76     use base ('Test::E', 'Test::D');
  77
  78     package Test::A;
  79     use base ('Test::B', 'Test::C');
  80 }
  81
  82 is_deeply(
  83     [ Algorithm::C3::merge('Test::A', 'supers') ],
  84     [ qw(Test::A Test::B Test::E Test::C Test::D Test::F Test::O) ],
  85     '... got the right C3 merge order for Test::A');