1#!/usr/bin/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 "/fran${ccedilla_l1}ais.txt" => { 28 content => $francais, 29 }, 30); 31 32my $cmdline = $WgetTest::WGETPATH . " --no-iri --local-encoding=iso-8859-1 -S ftp://localhost:{{port}}/fran${ccedilla_l1}ais.txt"; 33 34my $expected_error_code = 0; 35 36my %expected_downloaded_files = ( 37 "fran${ccedilla_l1}ais.txt" => { 38 content => $francais, 39 }, 40); 41 42############################################################################### 43 44my $the_test = FTPTest->new (name => "Test-ftp-iri", 45 input => \%urls, 46 cmdline => $cmdline, 47 errcode => $expected_error_code, 48 output => \%expected_downloaded_files); 49exit $the_test->run(); 50 51# vim: et ts=4 sw=4 52 53