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