t/plack-middleware-config.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 BEGIN { eval { require Catalyst::Plugin::ConfigLoader; 1; } ||
  11     plan skip_all => 'Need Catalyst::Plugin::ConfigLoader' }
  12
  13 use lib "$FindBin::Bin/lib";
  14 use Catalyst::Test 'TestMiddlewareFromConfig';
  15
  16 ok my($res, $c) = ctx_request('/');
  17
  18 {
  19   ok my $response = request GET $c->uri_for_action('/welcome'),
  20     'got welcome from a catalyst controller';
  21
  22   is $response->content, 'Welcome to Catalyst',
  23     'expected content body';
  24 }
  25
  26 {
  27   ok my $response = request GET $c->uri_for('/static/message.txt'),
  28     'got welcome from a catalyst controller';
  29
  30   like $response->content, qr'static message',
  31     'expected content body';
  32 }
  33
  34 {
  35   ok my $response = request GET $c->uri_for('/static2/message2.txt'),
  36     'got welcome from a catalyst controller';
  37
  38   like $response->content, qr'static message',
  39     'expected content body';
  40 }
  41
  42 {
  43   ok my $response = request GET $c->uri_for('/static3/message3.txt'),
  44     'got welcome from a catalyst controller';
  45
  46   like $response->content, qr'static message',
  47     'expected content body';
  48 }
  49
  50 {
  51   ok my $response = request GET $c->uri_for('/forced'),
  52     'got welcome from a catalyst controller';
  53
  54   like $response->content, qr'forced message',
  55     'expected content body';
  56
  57   ok $response->headers->{"x-runtime"}, "Got value for expected middleware";
  58 }
  59
  60 done_testing;