[catagits/Catalyst-Runtime.git] / t / aggregate / 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::Fatal;
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.

is exception {
    TestAppNonMooseController::ControllerBase->get_action_methods
}, undef, '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;
b1ead5a2	5	use lib "$FindBin::Bin/../lib";
2f5cb070	6
2f5cb070	7	use Test::More tests => 1;
2a56ace9	8	use Test::Fatal;
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
2a56ace9	16	is exception {
c68a3c90	17	TestAppNonMooseController::ControllerBase->get_action_methods
2a56ace9	18	}, undef, 'Base class->get_action_methods ok when sub class initialized first';
2f5cb070	19