Lines Matching full:test

6 require q(./test.pl); plan(tests => 12);
53     package Test::A; use mro 'c3';
55     package Test::B; use mro 'c3';
57     package Test::C; use mro 'c3';
59     package Test::D; use mro 'c3';
60     use base qw/Test::A Test::B Test::C/;
62     package Test::E; use mro 'c3';
63     use base qw/Test::D/;
65     package Test::F; use mro 'c3';
66     use base qw/Test::E/;
69     package Test::G; use mro 'c3';
70     use base qw/Test::D/;
72     package Test::H; use mro 'c3';
73     use base qw/Test::G/;
75     package Test::I; use mro 'c3';
76     use base qw/Test::H Test::F/;
79     package Test::J; use mro 'c3';
80     use base qw/Test::F/;
82     package Test::K; use mro 'c3';
83     use base qw/Test::J Test::I/;
88     mro::get_linear_isa('Test::A'),
89     [ qw(Test::A) ]
90 ), '... got the right C3 merge order for Test::A');
93     mro::get_linear_isa('Test::B'),
94     [ qw(Test::B) ]
95 ), '... got the right C3 merge order for Test::B');
98     mro::get_linear_isa('Test::C'),
99     [ qw(Test::C) ]
100 ), '... got the right C3 merge order for Test::C');
103     mro::get_linear_isa('Test::D'),
104     [ qw(Test::D Test::A Test::B Test::C) ]
105 ), '... got the right C3 merge order for Test::D');
108     mro::get_linear_isa('Test::E'),
109     [ qw(Test::E Test::D Test::A Test::B Test::C) ]
110 ), '... got the right C3 merge order for Test::E');
113     mro::get_linear_isa('Test::F'),
114     [ qw(Test::F Test::E Test::D Test::A Test::B Test::C) ]
115 ), '... got the right C3 merge order for Test::F');
118     mro::get_linear_isa('Test::G'),
119     [ qw(Test::G Test::D Test::A Test::B Test::C) ]
120 ), '... got the right C3 merge order for Test::G');
123     mro::get_linear_isa('Test::H'),
124     [ qw(Test::H Test::G Test::D Test::A Test::B Test::C) ]
125 ), '... got the right C3 merge order for Test::H');
128     mro::get_linear_isa('Test::I'),
129     [ qw(Test::I Test::H Test::G Test::F Test::E Test::D Test::A Test::B Test::C) ]
130 ), '... got the right C3 merge order for Test::I');
133     mro::get_linear_isa('Test::J'),
134     [ qw(Test::J Test::F Test::E Test::D Test::A Test::B Test::C) ]
135 ), '... got the right C3 merge order for Test::J');
138     mro::get_linear_isa('Test::K'),
139     [ qw(Test::K Test::J Test::I Test::H Test::G Test::F Test::E Test::D Test::A Test::B Test::C) ]
140 ), '... got the right C3 merge order for Test::K');
142 is(Test::K->testmeth(), "right", 'next::method working ok');