#!/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('/');
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;