Commit | Line | Data |
2f5cb070 |
1 | use Catalyst (); |
2 | |
3 | { |
4 | package TestApp::Controller::Base; |
5 | use base qw/Catalyst::Controller/; |
6 | } |
7 | { |
8 | package TestApp::Controller::Other; |
9 | use base qw/TestApp::Controller::Base/; |
10 | } |
11 | |
12 | Catalyst->setup_component('TestApp::Controller::Other'); |
13 | Catalyst->setup_component('TestApp::Controller::Base'); |
14 | |
15 | use Test::More tests => 1; |
16 | use Test::Exception; |
17 | |
18 | # Metaclass init order causes fail. |
19 | # There are TODO tests in Moose for this, see |
20 | # f2391d17574eff81d911b97be15ea51080500003 |
21 | # after which the evil kludge in core can die in a fire. |
22 | |
23 | lives_ok { |
24 | TestApp::Controller::Base->get_action_methods |
25 | } 'Base class->get_action_methods ok when sub class initialized first'; |
26 | |