moparisthebest/wget
1
0
Fork 0
mirror of https://github.com/moparisthebest/wget synced 2024-07-03 16:38:41 -04:00
Code Issues Releases Wiki Activity

Perl test suite: Substitue server port in HTTP headers

Browse Source
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> 2014-11-05 Tim Ruehsen <tim.ruehsen@gmx.de>
* Makefile.am: added $(LIB_CLOCK_GETTIME) to unit test linkage * 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}) while (my ($name, $value) = each %{$headers})
{ {
# print STDERR "setting header: $name = $value\n"; # print STDERR "setting header: $name = $value\n";
$value = $self->_substitute_port($value);
$resp->header($name => $value); $resp->header($name => $value);
} }
print STDERR "HTTP::Response with headers: \n", $resp->as_string if $log; print STDERR "HTTP::Response with headers: \n", $resp->as_string if $log;