From f6c447f56c53919f736bcf8a07ad98d42fac2e91 Mon Sep 17 00:00:00 2001 From: Irina Peshinskaya Date: Wed, 9 Jan 2019 14:38:34 +0100 Subject: [PATCH] TT#49754 Increase header lines limit in http response parsing Change-Id: Ic74dd3a1e07a45c573505d0b7d7f7c8ecb073e6c --- t/api-rest/api-all-links.t | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/t/api-rest/api-all-links.t b/t/api-rest/api-all-links.t index fff5a01be7..abcd53907b 100644 --- a/t/api-rest/api-all-links.t +++ b/t/api-rest/api-all-links.t @@ -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/');