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