moparisthebest
/
wget
mirror of https://github.com/moparisthebest/wget
1
0
Fork 0
Code Issues Releases Wiki Activity

Perl test suite: Substitue server port in HTTP headers

This commit is contained in:
Tim Rühsen 2014-11-26 12:25:40 +01:00
parent 54227091b8
commit f0e7326c20
2 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tests/ChangeLog
View File

@ -1,3 +1,11 @@
2014-11-26 Tim Ruehsen <tim.ruehsen@gmx.de>
* HTTPServer.pm: Substitue server port in HTTP headers
This allows us to use references like
"Location" => "http://localhost:{{port}}/whatever
in test cases.
2014-11-05 Tim Ruehsen <tim.ruehsen@gmx.de>
* Makefile.am: added $(LIB_CLOCK_GETTIME) to unit test linkage

1
tests/HTTPServer.pm
View File

@ -98,6 +98,7 @@ sub send_response
while (my ($name, $value) = each %{$headers})
{
# print STDERR "setting header: $name = $value\n";
$value = $self->_substitute_port($value);
$resp->header($name => $value);
}
print STDERR "HTTP::Response with headers: \n", $resp->as_string if $log;