1#!/usr/bin/env perl
2
3use strict;
4use warnings;
5
6use FTPTest;
7
8
9###############################################################################
10
11my $afile = <<EOF;
12Some text.
13EOF
14
15$afile =~ s/\n/\r\n/;
16
17
18# code, msg, headers, content
19my %urls = (
20    '/afile.txt' => {
21        content => $afile,
22    },
23);
24
25my $cmdline = $WgetTest::WGETPATH . " -S ftp://localhost:{{port}}/afile.txt";
26
27my $expected_error_code = 0;
28
29my %expected_downloaded_files = (
30    'afile.txt' => {
31        content => $afile,
32    },
33);
34
35###############################################################################
36
37my $the_test = FTPTest->new (
38                             input => \%urls,
39                             cmdline => $cmdline,
40                             errcode => $expected_error_code,
41                             output => \%expected_downloaded_files);
42exit $the_test->run();
43
44# vim: et ts=4 sw=4
45