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

diff --git a/t/plack-middleware.t b/t/plack-middleware.t
index 0693d88..f6bf563 100644
--- a/t/plack-middleware.t
+++ b/t/plack-middleware.t
@@ -1,11 +1,14 @@
 #!/usr/bin/env perl
 
+use warnings;
+use strict;
+
 use FindBin;
-use Test::Most;
+use Test::More;
 use HTTP::Request::Common;
 
 use lib "$FindBin::Bin/lib";
-use Catalyst::Test 'TestApp';
+use Catalyst::Test 'TestMiddleware';
 
 ok my($res, $c) = ctx_request('/');
 
@@ -47,5 +50,19 @@ ok my($res, $c) = ctx_request('/');
 
   like $response->content, qr'forced message',
     'expected content body';
+
+  ok $response->headers->{"x-runtime"}, "Got value for expected middleware";
 }
+
+{
+  my $total_mw = scalar(TestMiddleware->registered_middlewares);
+
+  TestMiddleware->setup_middleware;
+  TestMiddleware->setup_middleware;
+
+  my $post_mw = scalar(TestMiddleware->registered_middlewares);
+
+  is $total_mw, $post_mw, 'Calling ->setup_middleware does not re-add default middleware';
+}
+
 done_testing;