t/02subreq.t

   1 package main;
   2
   3 use Test::More tests => 9;
   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 }