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