use strict; use Test::More; use Plack::Test; use HTTP::Request::Common; use Plack::Middleware::IIS7KeepAliveFix; my $app=Plack::Middleware::IIS7KeepAliveFix->wrap( sub { my $env = shift; my $location='/go/?'.join('|', (0..1000)); return [ 302, [ 'Content-Type' => 'text/html', 'Content-Length' => 285, 'Location' => $location, ],[qq~ Moved

This item has moved here.

~] ]; }); test_psgi(app=>$app,client=> sub { my $cb = shift; my $res = $cb->(GET "/"); ok(!$res->content); ok(!$res->content_length); ok(!$res->content_type); }); done_testing;