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