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 | ||
84ff88cf | 15 | is(TestApp->component('TestApp')->action_for('global_action')->code, TestApp->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'); |