Detect redispatch exceptions by a class check, not by checking the exception message.

[catagits/Catalyst-Runtime.git] / t / unit_metaclass_compat_non_moose_controller.t

use Catalyst ();

{
    package TestApp;
    use base qw/Catalyst/;
}
{
    package TestApp::Controller::Base;
    use base qw/Catalyst::Controller/;
}
{
    package TestApp::Controller::Other;
    use base qw/TestApp::Controller::Base/;
}

TestApp->setup_component('TestApp::Controller::Other');
TestApp->setup_component('TestApp::Controller::Base');

use Test::More tests => 1;
use Test::Exception;

# Metaclass init order causes fail.
# There are TODO tests in Moose for this, see
# f2391d17574eff81d911b97be15ea51080500003
# after which the evil kludge in core can die in a fire.

lives_ok {
    TestApp::Controller::Base->get_action_methods
} 'Base class->get_action_methods ok when sub class initialized first';