t/aggregate/unit_core_action_for.t

   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 => 6;
  12
  13 use_ok('TestApp');
  14
  15 is(TestApp->action_for('global_action')->code, TestApp::Controller::Root->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');
  21    is(TestApp->controller('Args')->action_for('args').'',
  22       'args/args',
  23       'action stringifies');
  24
  25 my $controller = Catalyst::Context->new( application => TestApp->new )->controller('Args');
  26 is($controller->action_for('args')->code,
  27     TestApp::Controller::Args->can('args'),
  28     'action_for on controller ok');
  29 is($controller->action_for('args').'',
  30     'args/args',
  31     'action stringifies');
  32