8 # Just a sanity check to verify that %-encoded values are always left
11 my $ccedilla_l15 = "\xE7";
12 my $ccedilla_l15_pct = "%E7";
13 my $eacute_l1 = "\xE9";
14 my $eacute_u8 = "\xC3\xA9";
15 my $eacute_u8_pct = "%C3%A9";
17 my $pageindex = <<EOF;
20 <title>Main Page</title>
25 href="http://localhost:{{port}}/hello_${ccedilla_l15_pct}${eacute_l1}.html">La seule page en français</a>.
31 my $pagefrancais = <<EOF;
34 <title>La seule page en français</title>
35 <meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1"/>
44 # code, msg, headers, content
50 "Content-type" => "text/html; charset=ISO-8859-15",
52 content => $pageindex,
54 "/hello_${ccedilla_l15_pct}${eacute_u8_pct}.html" => {
58 "Content-type" => "text/html; charset=UTF-8",
60 content => $pagefrancais,
64 my $cmdline = $WgetTest::WGETPATH . " --iri -e robots=off --restrict-file-names=nocontrol -nH -r http://localhost:{{port}}/";
66 my $expected_error_code = 0;
68 my %expected_downloaded_files = (
70 content => $pageindex,
72 "hello_${ccedilla_l15}${eacute_u8}.html" => {
73 content => $pagefrancais,
77 ###############################################################################
79 my $the_test = HTTPTest->new (name => "Test-iri-percent",
82 errcode => $expected_error_code,
83 output => \%expected_downloaded_files);
84 exit $the_test->run();