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

use Catalyst ();

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

Catalyst->setup_component('TestApp::Controller::Other');
Catalyst->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';
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