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 contains
9 # - the response of "LIST" command contains
10 # the normal files (hidden files are not present)
11 # wget should use "LIST -a", but also "LIST".
12 # After "LIST", wget will see more data is available
13 # on "LIST -a", so it should go back to "LIST -a".
14 # (See also Test-ftp-list-Unknown-a.px)
22 ###############################################################################
24 my $normalfile = <<EOF;
28 my $hiddenfile = <<EOF;
32 $normalfile =~ s/\n/\r\n/g;
33 $hiddenfile =~ s/\n/\r\n/g;
35 # code, msg, headers, content
37 '/normalfile.txt' => {
38 content => $normalfile,
40 '/hiddenfile.txt' => {
41 content => $hiddenfile,
46 my $cmdline = $WgetTest::WGETPATH . " --no-directories --recursive --level=1 ftp://localhost:{{port}}/";
48 my $expected_error_code = 0;
50 my %expected_downloaded_files = (
52 content => $normalfile,
55 content => $hiddenfile,
59 ###############################################################################
61 my $the_test = FTPTest->new (name => "Test-ftp-list-Unknown-hidden",
64 errcode => $expected_error_code,
65 output => \%expected_downloaded_files,
66 server_behavior => {list_no_hidden_if_list => 1,
67 syst_response => "215 Unknown ftp service"});
68 exit $the_test->run();