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