t/aggregate/live_component_controller_actionroles.t

   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::Guff',
  12     bar  => 'TestApp::ActionRole::Guff',
  13     baz  => 'Guff',
  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::Guff');
  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;