3 # 2013-10-17 Andrea Urbani (matfanjol)
5 # - the response of SYST command is
6 # 215 Unknown ftp service
7 # - the response of "LIST -a" command is a file
9 # wget should use "LIST -a", but also "LIST".
10 # After "LIST", wget will see more data is available.
11 # (See also Test-ftp-list-Unknown-b.px)
19 ###############################################################################
30 my $minusafile = <<EOF;
31 The strange situation.
34 $afile =~ s/\n/\r\n/g;
35 $bfile =~ s/\n/\r\n/g;
36 $minusafile =~ s/\n/\r\n/g;
38 # code, msg, headers, content
47 content => $minusafile,
51 my $cmdline = $WgetTest::WGETPATH . " --no-directories --recursive --level=1 ftp://localhost:{{port}}/";
53 my $expected_error_code = 0;
55 my %expected_downloaded_files = (
63 content => $minusafile,
67 ###############################################################################
69 my $the_test = FTPTest->new (name => "Test-ftp-list-Unknown-a",
72 errcode => $expected_error_code,
73 output => \%expected_downloaded_files,
74 server_behavior => {list_dont_clean_path => 1,
75 syst_response => "215 Unknown ftp service"});
76 exit $the_test->run();