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 => 4;
  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');