X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Fplack-middleware.t;fp=t%2Fplack-middleware.t;h=0693d88f7c7b8cdda6cf87fad9e31f7f0bb54dd8;hp=0000000000000000000000000000000000000000;hb=c17c004aa78ef1280963f76abff75224343d71a8;hpb=3df65a8d8fa4a41c4d0ea0560875676a4cebfc6b

diff --git a/t/plack-middleware.t b/t/plack-middleware.t
new file mode 100644
index 0000000..0693d88
--- /dev/null
+++ b/t/plack-middleware.t
@@ -0,0 +1,51 @@
+#!/usr/bin/env perl
+
+use FindBin;
+use Test::Most;
+use HTTP::Request::Common;
+
+use lib "$FindBin::Bin/lib";
+use Catalyst::Test 'TestApp';
+
+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';
+}
+done_testing;