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