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