Lines Matching full:test

6 require q(./test.pl); plan(tests => 11);
53     package Test::A; use mro 'dfs';
55     package Test::B; use mro 'dfs';
57     package Test::C; use mro 'dfs';
59     package Test::D; use mro 'dfs';
60     use base qw/Test::A Test::B Test::C/;
62     package Test::E; use mro 'dfs';
63     use base qw/Test::D/;
65     package Test::F; use mro 'dfs';
66     use base qw/Test::E/;
68     package Test::G; use mro 'dfs';
69     use base qw/Test::D/;
71     package Test::H; use mro 'dfs';
72     use base qw/Test::G/;
74     package Test::I; use mro 'dfs';
75     use base qw/Test::H Test::F/;
77     package Test::J; use mro 'dfs';
78     use base qw/Test::F/;
80     package Test::K; use mro 'dfs';
81     use base qw/Test::J Test::I/;
85     mro::get_linear_isa('Test::A'),
86     [ qw(Test::A) ]
87 ), '... got the right DFS merge order for Test::A');
90     mro::get_linear_isa('Test::B'),
91     [ qw(Test::B) ]
92 ), '... got the right DFS merge order for Test::B');
95     mro::get_linear_isa('Test::C'),
96     [ qw(Test::C) ]
97 ), '... got the right DFS merge order for Test::C');
100     mro::get_linear_isa('Test::D'),
101     [ qw(Test::D Test::A Test::B Test::C) ]
102 ), '... got the right DFS merge order for Test::D');
105     mro::get_linear_isa('Test::E'),
106     [ qw(Test::E Test::D Test::A Test::B Test::C) ]
107 ), '... got the right DFS merge order for Test::E');
110     mro::get_linear_isa('Test::F'),
111     [ qw(Test::F Test::E Test::D Test::A Test::B Test::C) ]
112 ), '... got the right DFS merge order for Test::F');
115     mro::get_linear_isa('Test::G'),
116     [ qw(Test::G Test::D Test::A Test::B Test::C) ]
117 ), '... got the right DFS merge order for Test::G');
120     mro::get_linear_isa('Test::H'),
121     [ qw(Test::H Test::G Test::D Test::A Test::B Test::C) ]
122 ), '... got the right DFS merge order for Test::H');
125     mro::get_linear_isa('Test::I'),
126     [ qw(Test::I Test::H Test::G Test::D Test::A Test::B Test::C Test::F Test::E) ]
127 ), '... got the right DFS merge order for Test::I');
130     mro::get_linear_isa('Test::J'),
131     [ qw(Test::J Test::F Test::E Test::D Test::A Test::B Test::C) ]
132 ), '... got the right DFS merge order for Test::J');
135     mro::get_linear_isa('Test::K'),
136     [ qw(Test::K Test::J Test::F Test::E Test::D Test::A Test::B Test::C Test::I Test::H Test::G) ]
137 ), '... got the right DFS merge order for Test::K');