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

#!perl

use strict;
use warnings;

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

use Test::More;

plan tests => 4;

use_ok('TestApp');

is(TestApp->action_for('global_action')->code, TestApp::Controller::Root->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');
   is(TestApp->controller('Args')->action_for('args').'',
      'args/args',
      'action stringifies');
Commit	Line	Data
2a563513	1	#!perl
	2
	3	use strict;
	4	use warnings;
	5
	6	use FindBin;
42da66a9	7	use lib "$FindBin::Bin/../lib";
2a563513	8
	9	use Test::More;
	10
2055d9ad	11	plan tests => 4;
2a563513	12
	13	use_ok('TestApp');
	14
cf013d38	15	is(TestApp->action_for('global_action')->code, TestApp::Controller::Root->can('global_action'),
2a563513	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');
2055d9ad	21	is(TestApp->controller('Args')->action_for('args').'',
	22	'args/args',
	23	'action stringifies');