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

Add port substitution for FTP to tests.

Browse Source
This commit is contained in:
Steven Schubiger 2010-02-25 21:47:53 +01:00
parent 068991e8a0
commit baf9994402
2 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
tests/ChangeLog
View File

@ -1,3 +1,8 @@
2010-02-25 Steven Schubiger <stsc@member.fsf.org>
* FTPServer.pm (FTPServer::new): Substitute port placeholders
in content of files to be retrieved via FTP.
2009-10-14 Steven Schubiger <stsc@member.fsf.org> 2009-10-14 Steven Schubiger <stsc@member.fsf.org>
* Test-E-k-K.px, Test-cookies-401.px, Test-ftp-bad-list.px, * Test-E-k-K.px, Test-cookies-401.px, Test-ftp-bad-list.px,

6
tests/FTPServer.pm
View File

@ -489,6 +489,12 @@ sub new {
Proto => 'tcp', Proto => 'tcp',
Type => SOCK_STREAM) Type => SOCK_STREAM)
or die "bind: $!"; or die "bind: $!";
foreach my $file (keys %{$self->{_input}}) {
my $ref = \$self->{_input}{$file}{content};
$$ref =~ s/{{port}}/$self->sockport/eg;
}
return $self; return $self;
} }