t/more-psgi-compat.t

   1 #!/usr/bin/env perl
   2
   3 use warnings;
   4 use strict;
   5
   6 use FindBin;
   7 use Test::More;
   8 use HTTP::Request::Common;
   9
  10 use lib "$FindBin::Bin/lib";
  11 use Catalyst::Test 'TestFromPSGI';
  12
  13 {
  14   ok my $response = request GET '/from_psgi_array',
  15     'got welcome from a catalyst controller';
  16
  17   is $response->content, 'helloworldtoday',
  18     'expected content body /from_psgi_array';
  19 }
  20
  21 {
  22   ok my $response = request GET '/from_psgi_code',
  23     'got welcome from a catalyst controller';
  24
  25   is $response->content, 'helloworldtoday2',
  26     'expected content body /from_psgi_code';
  27 }
  28
  29 {
  30   ok my $response = request GET '/from_psgi_code_itr',
  31     'got welcome from a catalyst controller';
  32
  33   is $response->content, 'helloworldtoday3',
  34     'expected content body /from_psgi_code_itr';
  35 }
  36
  37 done_testing;