6 use lib "$FindBin::Bin/../lib";
8 use Catalyst::Test 'TestApp';
11 foo => 'TestApp::ActionRole::Moo',
12 bar => 'TestApp::ActionRole::Moo',
14 quux => 'Catalyst::ActionRole::Zoo',
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');
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');
32 my $resp = request("/actionroles/frew");
33 ok($resp->is_success);
34 is($resp->content, 'hello', 'action_args are honored with ActionRoles');