X-Git-Url: http://sjero.net/git/?a=blobdiff_plain;f=tests%2FFTPTest.pm;h=c1d3d266cf0f692e0d7cad62f8ce9c92c981c767;hb=8c2fd06ba80b5312b4540859d452664450ec054f;hp=85fc1dd382dc0e151b3d265d8108cd78f09141e6;hpb=ad4b678d2d8aac8644810319cb439994c1470a18;p=wget diff --git a/tests/FTPTest.pm b/tests/FTPTest.pm index 85fc1dd3..c1d3d266 100644 --- a/tests/FTPTest.pm +++ b/tests/FTPTest.pm @@ -21,7 +21,7 @@ my $VERSION = 0.01; return $self->SUPER::_default_for($attr); } - sub _standard_keys + sub _standard_keys { my ($self) = @_; ($self->SUPER::_standard_keys(), keys %_attr_data); @@ -33,6 +33,8 @@ sub _setup_server { my $self = shift; $self->{_server} = FTPServer->new (input => $self->{_input}, + server_behavior => + $self->{_server_behavior}, LocalAddr => 'localhost', ReuseAddr => 1, rootDir => "$self->{_workdir}/$self->{_name}/input") or die "Cannot create server!!!";