Lines Matching full:test

6 require q(./test.pl); plan(tests => 10);
47     package Test::O;
50     package Test::F;   
52     use base 'Test::O';        
54     package Test::E;
55     use base 'Test::O';    
58     sub C_or_E { 'Test::E' }
60     package Test::D;
62     use base 'Test::O';     
64     sub C_or_D { 'Test::D' }       
66     package Test::C;
67     use base ('Test::D', 'Test::F');
70     sub C_or_D { 'Test::C' }
71     sub C_or_E { 'Test::C' }    
73     package Test::B;    
75     use base ('Test::D', 'Test::E');    
77     package Test::A;    
78     use base ('Test::B', 'Test::C');
83     mro::get_linear_isa('Test::F'),
84     [ qw(Test::F Test::O) ]
85 ), '... got the right MRO for Test::F');
88     mro::get_linear_isa('Test::E'),
89     [ qw(Test::E Test::O) ]
90 ), '... got the right MRO for Test::E');    
93     mro::get_linear_isa('Test::D'),
94     [ qw(Test::D Test::O) ]
95 ), '... got the right MRO for Test::D');       
98     mro::get_linear_isa('Test::C'),
99     [ qw(Test::C Test::D Test::O Test::F) ]
100 ), '... got the right MRO for Test::C'); 
103     mro::get_linear_isa('Test::B'),
104     [ qw(Test::B Test::D Test::O Test::E) ]
105 ), '... got the right MRO for Test::B');     
108     mro::get_linear_isa('Test::A'),
109     [ qw(Test::A Test::B Test::D Test::O Test::E Test::C Test::F) ]
110 ), '... got the right MRO for Test::A');  
112 is(Test::A->C_or_D, 'Test::D', '... got the expected method output');
113 is(Test::A->can('C_or_D')->(), 'Test::D', '... can got the expected method output');
114 is(Test::A->C_or_E, 'Test::E', '... got the expected method output');
115 is(Test::A->can('C_or_E')->(), 'Test::E', '... can got the expected method output');