t/aggregate/unit_core_action_for.t

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