Regression test for getftp bug (fails).

[wget] / tests / FTPTest.pm

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