look a failing test case...

[catagits/Catalyst-Runtime.git] / t / plack-middleware-config.t

diff --git a/t/plack-middleware-config.t b/t/plack-middleware-config.t
new file mode 100644 (file)
index 0000000..728bff6
--- /dev/null
+++ b/t/plack-middleware-config.t
@@ -0,0 +1,60 @@
+#!/usr/bin/env perl
+
+use warnings;
+use strict;
+
+use FindBin;
+use Test::More;
+use HTTP::Request::Common;
+
+BEGIN { eval { require Catalyst::Plugin::ConfigLoader; 1; } ||
+    plan skip_all => 'Need Catalyst::Plugin::ConfigLoader' }
+
+use lib "$FindBin::Bin/lib";
+use Catalyst::Test 'TestMiddlewareFromConfig';
+
+ok my($res, $c) = ctx_request('/');
+
+{
+  ok my $response = request GET $c->uri_for_action('/welcome'),
+    'got welcome from a catalyst controller';
+
+  is $response->content, 'Welcome to Catalyst',
+    'expected content body';
+}
+
+{
+  ok my $response = request GET $c->uri_for('/static/message.txt'),
+    'got welcome from a catalyst controller';
+
+  like $response->content, qr'static message',
+    'expected content body';
+}
+
+{
+  ok my $response = request GET $c->uri_for('/static2/message2.txt'),
+    'got welcome from a catalyst controller';
+
+  like $response->content, qr'static message',
+    'expected content body';
+}
+
+{
+  ok my $response = request GET $c->uri_for('/static3/message3.txt'),
+    'got welcome from a catalyst controller';
+
+  like $response->content, qr'static message',
+    'expected content body';
+}
+
+{
+  ok my $response = request GET $c->uri_for('/forced'),
+    'got welcome from a catalyst controller';
+
+  like $response->content, qr'forced message',
+    'expected content body';
+
+  ok $response->headers->{"x-runtime"}, "Got value for expected middleware";
+}
+
+done_testing;