NEWS: cite --start-pos

[wget] / tests / FTPTest.pm

diff --git a/tests/FTPTest.pm b/tests/FTPTest.pm
index 85fc1dd382dc0e151b3d265d8108cd78f09141e6..c1d3d266cf0f692e0d7cad62f8ce9c92c981c767 100644 (file)
--- 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!!!";