t/unit_metaclass_compat_non_moose_controller.t

   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