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