t/live/component/controller/action/regexp.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 => 120;
  10 use Catalyst::Test 'TestApp';
  11
  12 for ( 1 .. 10 ) {
  13     {
  14         ok( my $response = request('http://localhost/action/regexp/10/hello'),
  15             'Request' );
  16         ok( $response->is_success, 'Response Successful 2xx' );
  17         is( $response->content_type, 'text/plain', 'Response Content-Type' );
  18         is( $response->header('X-Catalyst-Action'),
  19             '^action/regexp/(\d+)/(\w+)$', 'Test Action' );
  20         is(
  21             $response->header('X-Test-Class'),
  22             'TestApp::Controller::Action::Regexp',
  23             'Test Class'
  24         );
  25         like(
  26             $response->content,
  27             qr/^bless\( .* 'Catalyst::Request' \)$/s,
  28             'Content is a serialized Catalyst::Request'
  29         );
  30     }
  31
  32     {
  33         ok( my $response = request('http://localhost/action/regexp/hello/10'),
  34             'Request' );
  35         ok( $response->is_success, 'Response Successful 2xx' );
  36         is( $response->content_type, 'text/plain', 'Response Content-Type' );
  37         is( $response->header('X-Catalyst-Action'),
  38             '^action/regexp/(\w+)/(\d+)$', 'Test Action' );
  39         is(
  40             $response->header('X-Test-Class'),
  41             'TestApp::Controller::Action::Regexp',
  42             'Test Class'
  43         );
  44         like(
  45             $response->content,
  46             qr/^bless\( .* 'Catalyst::Request' \)$/s,
  47             'Content is a serialized Catalyst::Request'
  48         );
  49     }
  50 }