Commit | Line | Data |
eff60019 |
1 | use strict; |
2 | use warnings; |
3 | use Test::More; |
4 | |
5 | use FindBin; |
6 | use lib "$FindBin::Bin/../lib"; |
7 | |
8 | use Catalyst::Test 'TestApp'; |
9 | |
10 | my %roles = ( |
11 | foo => 'TestApp::ActionRole::Moo', |
12 | bar => 'TestApp::ActionRole::Moo', |
13 | baz => 'Moo', |
14 | quux => 'Catalyst::ActionRole::Zoo', |
15 | ); |
16 | |
17 | while (my ($path, $role) = each %roles) { |
18 | my $resp = request("/actionroles/${path}"); |
19 | ok($resp->is_success); |
20 | is($resp->content, $role); |
21 | is($resp->header('X-Affe'), 'Tiger'); |
22 | } |
23 | |
24 | { |
25 | my $resp = request("/actionroles/corge"); |
26 | ok($resp->is_success); |
27 | is($resp->content, 'TestApp::ActionRole::Moo'); |
28 | is($resp->header('X-Affe'), 'Tiger'); |
29 | is($resp->header('X-Action-After'), 'moo'); |
30 | } |
31 | { |
32 | my $resp = request("/actionroles/frew"); |
33 | ok($resp->is_success); |
34 | is($resp->content, 'hello', 'action_args are honored with ActionRoles'); |
35 | } |
36 | done_testing; |