t/02subreq.t

   1 package main;
   2
   3 use Test::More tests => 6;
   4 use lib 't/lib';
   5 use Catalyst::Test 'TestApp';
   6 use File::stat;
   7 use File::Slurp;
   8 use HTTP::Date;
   9
  10 my $stat = stat($0);
  11
  12 {
  13     ok( my $response = request('/normal/2'),    'Normal Request'  );
  14     is( $response->code, 200,                 'OK status code'  );
  15     is( $response->content, '123',    'Normal request content', );
  16 }
  17
  18 {
  19     ok( my $response = request('/subtest'),    'Sub Request'     );
  20     is( $response->code, 200,                 'OK status code'  );
  21     is( $response->content, '11433',    'Normal request content', );
  22 }
  23