[catagits/CatalystX-DynamicComponent.git] / t / 05_dynamiccontrollers.t

use strict;
use warnings;

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

use Moose::Util qw/does_role/;

use Test::More tests => 4;

use DynamicAppDemo;

# Naughty, should make an app instance.
my $controller = DynamicAppDemo->controller('One');

ok $controller;
isa_ok $controller, 'DynamicAppDemo::ControllerBase';
ok does_role($controller, 'DynamicAppDemo::ControllerRole');
ok ! $controller->action_for('get_reflected_action_methods'),
    'not leaking actions';
Commit	Line	Data
d5c074b5	1	use strict;
	2	use warnings;
	3
	4	use FindBin qw/$Bin/;
	5	use lib "$Bin/lib";
	6
	7	use Moose::Util qw/does_role/;
	8
1bbef1e7	9	use Test::More tests => 4;
d5c074b5	10
	11	use DynamicAppDemo;
	12
	13	# Naughty, should make an app instance.
	14	my $controller = DynamicAppDemo->controller('One');
	15
	16	ok $controller;
1bbef1e7	17	isa_ok $controller, 'DynamicAppDemo::ControllerBase';
1bbef1e7	18	ok does_role($controller, 'DynamicAppDemo::ControllerRole');
d5c074b5	19	ok ! $controller->action_for('get_reflected_action_methods'),
	20	'not leaking actions';
	21