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

#!perl

use strict;
use warnings;

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

use Test::More;

plan tests => 3;

use_ok('TestApp');

is(TestApp->action_for('global_action')->code, TestApp->can('global_action'),
   'action_for on appclass ok');

is(TestApp->controller('Args')->action_for('args')->code,
   TestApp::Controller::Args->can('args'),
   'action_for on controller ok');
Commit	Line	Data
2a563513	1	#!perl
	2
	3	use strict;
	4	use warnings;
	5
	6	use FindBin;
	7	use lib "$FindBin::Bin/lib";
	8
	9	use Test::More;
	10
	11	plan tests => 3;
	12
	13	use_ok('TestApp');
	14
	15	is(TestApp->action_for('global_action')->code, TestApp->can('global_action'),
	16	'action_for on appclass ok');
	17
	18	is(TestApp->controller('Args')->action_for('args')->code,
	19	TestApp::Controller::Args->can('args'),
	20	'action_for on controller ok');