t/live/component/controller/action/end.t

   1 #!perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use FindBin;
   7 use lib "$FindBin::Bin/../../../lib";
   8
   9 use Test::More tests => 70;
  10 use Catalyst::Test 'TestApp';
  11
  12 for ( 1 .. 10 ) {
  13     {
  14         my @expected = qw[
  15           TestApp::Controller::Action::End->begin
  16           TestApp::Controller::Action::End->default
  17           TestApp::View::Dump::Request->process
  18           TestApp::Controller::Action::End->end
  19         ];
  20
  21         my $expected = join( ", ", @expected );
  22
  23         ok( my $response = request('http://localhost/action/end'), 'Request' );
  24         ok( $response->is_success, 'Response Successful 2xx' );
  25         is( $response->content_type, 'text/plain', 'Response Content-Type' );
  26         is( $response->header('X-Catalyst-Action'), 'default', 'Test Action' );
  27         is(
  28             $response->header('X-Test-Class'),
  29             'TestApp::Controller::Action::End',
  30             'Test Class'
  31         );
  32         is( $response->header('X-Catalyst-Executed'),
  33             $expected, 'Executed actions' );
  34         like(
  35             $response->content,
  36             qr/^bless\( .* 'Catalyst::Request' \)$/s,
  37             'Content is a serialized Catalyst::Request'
  38         );
  39     }
  40 }