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);
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 (name => "Test-ftp-iri",
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
50