TT#49754 Increase header lines limit in http response parsing

Change-Id: Ic74dd3a1e07a45c573505d0b7d7f7c8ecb073e6c
changes/76/26076/3
Irina Peshinskaya 7 years ago
parent 66241b6d03
commit f6c447f56c

@ -10,19 +10,23 @@ my ($netloc) = ($uri =~ m!^https?://(.*)/?.*$!);
my ($ua, $req, $res);
#to eliminate 'Too many header lines (limit is 128) at /usr/share/perl5/Net/HTTP/Methods.pm line 383.
#on the curl -i -k --user administrator:administrator -X OPTIONS -H 'Content-Type: application/json' 'https://127.0.0.1:1443/api/?foo=bar&bla'
use LWP::Protocol::http;
push @LWP::Protocol::http::EXTRA_SOCK_OPTS, MaxHeaderLines => 256;
use Test::Collection;
$ua = Test::Collection->new()->ua();
# OPTIONS tests
{
# disabled
ok(1, "skip OPTIONS test in all-links");
last;
diag("server is $uri");
# test some uri params
$req = HTTP::Request->new('OPTIONS', $uri.'/api/?foo=bar&bla');
$res = $ua->request($req);
is($res->code, 200, "check options request with uri params");
$req = HTTP::Request->new('OPTIONS', $uri.'/api/');

Loading…
Cancel
Save