avoid needing . in @INC in dev mode
[gitmo/Algorithm-C3.git] / t / 006_complex_merge.t
1 #!/usr/bin/perl
2
3 use strict;
4 use warnings;
5
6 use Test::More tests => 12;
7
8 BEGIN {
9     use_ok('Algorithm::C3');
10 }
11
12 =pod
13
14 This example is taken from: http://rt.cpan.org/Public/Bug/Display.html?id=20879
15
16                ---     ---     ---
17 Level 5     8 | A | 9 | B | A | C |    (More General)
18                ---     ---     ---       V
19                   \     |     /          |
20                    \    |    /           |
21                     \   |   /            |
22                      \  |  /             |
23                        ---               |
24 Level 4             7 | D |              |
25                        ---               |
26                       /   \              |
27                      /     \             |
28                   ---       ---          |
29 Level 3        4 | G |   6 | E |         |
30                   ---       ---          |
31                    |         |           |
32                    |         |           |
33                   ---       ---          |
34 Level 2        3 | H |   5 | F |         |
35                   ---       ---          |
36                       \   /  |           |
37                        \ /   |           |
38                         \    |           |
39                        / \   |           |
40                       /   \  |           |
41                   ---       ---          |
42 Level 1        1 | J |   2 | I |         |
43                   ---       ---          |
44                     \       /            |
45                      \     /             |
46                        ---               v
47 Level 0             0 | K |            (More Specialized)
48                        ---
49
50
51 0123456789A
52 KJIHGFEDABC
53
54 =cut
55
56 {
57     package Test::A;
58     sub x { 1 }
59
60     package Test::B;
61     sub x { 1 }
62
63     package Test::C;
64     sub x { 1 }
65
66     package Test::D;
67     use base qw/Test::A Test::B Test::C/;
68
69     package Test::E;
70     use base qw/Test::D/;
71
72     package Test::F;
73     use base qw/Test::E/;
74
75     package Test::G;
76     use base qw/Test::D/;
77
78     package Test::H;
79     use base qw/Test::G/;
80
81     package Test::I;
82     use base qw/Test::H Test::F/;
83
84     package Test::J;
85     use base qw/Test::F/;
86
87     package Test::K;
88     use base qw/Test::J Test::I/;
89 }
90
91 sub supers {
92     no strict 'refs';
93     @{$_[0] . '::ISA'};
94 }
95
96 is_deeply(
97     [ Algorithm::C3::merge('Test::A', \&supers) ],
98     [ qw(Test::A) ],
99     '... got the right C3 merge order for Test::A');
100
101 is_deeply(
102     [ Algorithm::C3::merge('Test::B', \&supers) ],
103     [ qw(Test::B) ],
104     '... got the right C3 merge order for Test::B');
105
106 is_deeply(
107     [ Algorithm::C3::merge('Test::C', \&supers) ],
108     [ qw(Test::C) ],
109     '... got the right C3 merge order for Test::C');
110
111 is_deeply(
112     [ Algorithm::C3::merge('Test::D', \&supers) ],
113     [ qw(Test::D Test::A Test::B Test::C) ],
114     '... got the right C3 merge order for Test::D');
115
116 is_deeply(
117     [ Algorithm::C3::merge('Test::E', \&supers) ],
118     [ qw(Test::E Test::D Test::A Test::B Test::C) ],
119     '... got the right C3 merge order for Test::E');
120
121 is_deeply(
122     [ Algorithm::C3::merge('Test::F', \&supers) ],
123     [ qw(Test::F Test::E Test::D Test::A Test::B Test::C) ],
124     '... got the right C3 merge order for Test::F');
125
126 is_deeply(
127     [ Algorithm::C3::merge('Test::G', \&supers) ],
128     [ qw(Test::G Test::D Test::A Test::B Test::C) ],
129     '... got the right C3 merge order for Test::G');
130
131 is_deeply(
132     [ Algorithm::C3::merge('Test::H', \&supers) ],
133     [ qw(Test::H Test::G Test::D Test::A Test::B Test::C) ],
134     '... got the right C3 merge order for Test::H');
135
136 is_deeply(
137     [ Algorithm::C3::merge('Test::I', \&supers) ],
138     [ qw(Test::I Test::H Test::G Test::F Test::E Test::D Test::A Test::B Test::C) ],
139     '... got the right C3 merge order for Test::I');
140
141 is_deeply(
142     [ Algorithm::C3::merge('Test::J', \&supers) ],
143     [ qw(Test::J Test::F Test::E Test::D Test::A Test::B Test::C) ],
144     '... got the right C3 merge order for Test::J');
145
146 is_deeply(
147     [ Algorithm::C3::merge('Test::K', \&supers) ],
148     [ qw(Test::K Test::J Test::I Test::H Test::G Test::F Test::E Test::D Test::A Test::B Test::C) ],
149     '... got the right C3 merge order for Test::K');