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

use strict;
use warnings;

use FindBin;
use lib "$FindBin::Bin/lib";

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

# 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 {
    TestAppNonMooseController::ControllerBase->get_action_methods
} 'Base class->get_action_methods ok when sub class initialized first';
Commit	Line	Data
c68a3c90	1	use strict;
c68a3c90	2	use warnings;
2f5cb070	3
c68a3c90	4	use FindBin;
c68a3c90	5	use lib "$FindBin::Bin/lib";
2f5cb070	6
	7	use Test::More tests => 1;
	8	use Test::Exception;
c68a3c90	9	use TestAppNonMooseController;
2f5cb070	10
	11	# Metaclass init order causes fail.
	12	# There are TODO tests in Moose for this, see
	13	# f2391d17574eff81d911b97be15ea51080500003
	14	# after which the evil kludge in core can die in a fire.
	15
	16	lives_ok {
c68a3c90	17	TestAppNonMooseController::ControllerBase->get_action_methods
2f5cb070	18	} 'Base class->get_action_methods ok when sub class initialized first';
2f5cb070	19