t/plack-middleware.t

   1 #!/usr/bin/env perl
   2
   3 use FindBin;
   4 use Test::Most;
   5 use HTTP::Request::Common;
   6
   7 use lib "$FindBin::Bin/lib";
   8 use Catalyst::Test 'TestApp';
   9
  10 ok my($res, $c) = ctx_request('/');
  11
  12 {
  13   ok my $response = request GET $c->uri_for_action('/welcome'),
  14     'got welcome from a catalyst controller';
  15
  16   is $response->content, 'Welcome to Catalyst',
  17     'expected content body';
  18 }
  19
  20 {
  21   ok my $response = request GET $c->uri_for('/static/message.txt'),
  22     'got welcome from a catalyst controller';
  23
  24   like $response->content, qr'static message',
  25     'expected content body';
  26 }
  27
  28 {
  29   ok my $response = request GET $c->uri_for('/static2/message2.txt'),
  30     'got welcome from a catalyst controller';
  31
  32   like $response->content, qr'static message',
  33     'expected content body';
  34 }
  35
  36 {
  37   ok my $response = request GET $c->uri_for('/static3/message3.txt'),
  38     'got welcome from a catalyst controller';
  39
  40   like $response->content, qr'static message',
  41     'expected content body';
  42 }
  43
  44 {
  45   ok my $response = request GET $c->uri_for('/forced'),
  46     'got welcome from a catalyst controller';
  47
  48   like $response->content, qr'forced message',
  49     'expected content body';
  50 }
  51 done_testing;