t/02subreq.t

   1 package main;
   2
   3 use Test::More tests => 21;
   4 use lib 't/lib';
   5 use Catalyst::Test 'TestApp';
   6 use File::stat;
   7 use HTTP::Date;
   8
   9 my $stat = stat($0);
  10
  11 {
  12     ok( my $response = request('/normal/2'),    'Normal Request'  );
  13     is( $response->code, 200,                 'OK status code'  );
  14     is( $response->content, '123',    'Normal request content', );
  15 }
  16
  17 {
  18     ok( my $response = request('/subtest'),    'Sub Request'     );
  19     is( $response->code, 200,                 'OK status code'  );
  20     is( $response->content, '11433',    'Normal request content', );
  21 }
  22
  23 {
  24     ok( my $response = request('/subtest_params?value=abc'), 'Params Sub Request' );
  25     is( $response->code, 200, 'OK status code' );
  26     is( $response->content, '1abc3', 'Normal request content' );
  27 }
  28
  29 {
  30     ok( my $response = request('/subtest_req'), 'Sub request not stomping original request object' );
  31     is( $response->code, 200, 'OK status code' );
  32     is( $response->content, '/subtest_req3', 'Normal request content' );
  33 }
  34
  35 {
  36     ok( my $response = request('/subtest_full_response'),    'Sub Reuqest returning full response object'  );
  37     is( $response->code, 200,                 'OK status code'  );
  38     is( $response->content, '1text/csv3',    'Normal request content', );
  39 }
  40
  41 {
  42     ok( my $response = request('/subtest_with_params'),    'Sub request with full params'  );
  43     is( $response->code, 200,                 'OK status code'  );
  44     is( $response->content, 'foo33',    'Normal request content', );
  45 }
  46
  47 {
  48     ok( my $response = request('/doublesubtest'),    'Double Sub Request'  );
  49     is( $response->code, 200,                 'OK status code'  );
  50     is( $response->content, '1531633',    'Normal Double request content', ); #we get 153 right now
  51 }