t/live_component_controller_action_local.t

   1 #!perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use FindBin;
   7 use lib "$FindBin::Bin/lib";
   8
   9 our $iters;
  10
  11 BEGIN { $iters = $ENV{CAT_BENCH_ITERS} || 2; }
  12
  13 use Test::More tests => 32*$iters;
  14 use Catalyst::Test 'TestApp';
  15
  16 if ( $ENV{CAT_BENCHMARK} ) {
  17     require Benchmark;
  18     Benchmark::timethis( $iters, \&run_tests );
  19 }
  20 else {
  21     for ( 1 .. $iters ) {
  22         run_tests();
  23     }
  24 }
  25
  26 sub run_tests {
  27     {
  28         ok( my $response = request('http://localhost/action/local/one'),
  29             'Request' );
  30         ok( $response->is_success, 'Response Successful 2xx' );
  31         is( $response->content_type, 'text/plain', 'Response Content-Type' );
  32         is( $response->header('X-Catalyst-Action'),
  33             'action/local/one', 'Test Action' );
  34         is(
  35             $response->header('X-Test-Class'),
  36             'TestApp::Controller::Action::Local',
  37             'Test Class'
  38         );
  39         like(
  40             $response->content,
  41             qr/^bless\( .* 'Catalyst::Request' \)$/s,
  42             'Content is a serialized Catalyst::Request'
  43         );
  44     }
  45
  46     {
  47         ok( my $response = request('http://localhost/action/local/two/1/2'),
  48             'Request' );
  49         ok( $response->is_success, 'Response Successful 2xx' );
  50         is( $response->content_type, 'text/plain', 'Response Content-Type' );
  51         is( $response->header('X-Catalyst-Action'),
  52             'action/local/two', 'Test Action' );
  53         is(
  54             $response->header('X-Test-Class'),
  55             'TestApp::Controller::Action::Local',
  56             'Test Class'
  57         );
  58         like(
  59             $response->content,
  60             qr/^bless\( .* 'Catalyst::Request' \)$/s,
  61             'Content is a serialized Catalyst::Request'
  62         );
  63     }
  64
  65     {
  66          ok( my $response = request('http://localhost/action/local/two'),
  67                'Request' );
  68          ok( !$response->is_success, 'Request with wrong number of args failed' );
  69     }
  70
  71     {
  72         ok( my $response = request('http://localhost/action/local/three'),
  73             'Request' );
  74         ok( $response->is_success, 'Response Successful 2xx' );
  75         is( $response->content_type, 'text/plain', 'Response Content-Type' );
  76         is( $response->header('X-Catalyst-Action'),
  77             'action/local/three', 'Test Action' );
  78         is(
  79             $response->header('X-Test-Class'),
  80             'TestApp::Controller::Action::Local',
  81             'Test Class'
  82         );
  83         like(
  84             $response->content,
  85             qr/^bless\( .* 'Catalyst::Request' \)$/s,
  86             'Content is a serialized Catalyst::Request'
  87         );
  88     }
  89
  90     {
  91         ok(
  92             my $response =
  93               request('http://localhost/action/local/four/five/six'),
  94             'Request'
  95         );
  96         ok( $response->is_success, 'Response Successful 2xx' );
  97         is( $response->content_type, 'text/plain', 'Response Content-Type' );
  98         is( $response->header('X-Catalyst-Action'),
  99             'action/local/four/five/six', 'Test Action' );
 100         is(
 101             $response->header('X-Test-Class'),
 102             'TestApp::Controller::Action::Local',
 103             'Test Class'
 104         );
 105         like(
 106             $response->content,
 107             qr/^bless\( .* 'Catalyst::Request' \)$/s,
 108             'Content is a serialized Catalyst::Request'
 109         );
 110     }
 111
 112     {
 113         ok(
 114             my $response =
 115               request('http://localhost/action/local/one/foo%2Fbar'),
 116             'Request'
 117         );
 118         ok( $response->is_success, 'Response Successful 2xx' );
 119         is( $response->content_type, 'text/plain', 'Response Content-Type' );
 120         is( $response->header('X-Catalyst-Action'),
 121             'action/local/one', 'Test Action' );
 122         is(
 123             $response->header('X-Test-Class'),
 124             'TestApp::Controller::Action::Local',
 125             'Test Class'
 126         );
 127         like(
 128             $response->content,
 129             qr~arguments => \[\s*'foo/bar'\s*\]~,
 130             "Parameters don't split on %2F"
 131         );
 132     }
 133 }