-#!/usr/bin/perl -w
+#!/usr/bin/perl
use strict;
+use warnings;
+use WgetFeature qw(iri);
use HTTPTest;
# cf. http://en.wikipedia.org/wiki/Latin1
my $eacute_u8 = "\xC3\xA9";
my $eurosign_l15 = "\xA4";
my $eurosign_u8 = "\xE2\x82\xAC";
-my $eurosign2_u8 = "\xE2%82\xAC"; # version wget use... sXXXav
my $pageindex = <<EOF;
<html>
'/p2_%C3%A9%C3%A9n.html' => { # UTF-8 encoded
code => "200",
msg => "Ok",
- headers => {
- "Content-type" => "text/html; charset=ISO-8859-1",
+ request_headers => {
+ "Referer" => qr|http://localhost:[0-9]+/p1_fran%E7ais.html|,
},
- content => $pageeen,
- },
- '/p2_%E9%E9n.html' => {
- code => "200",
- msg => "Ok",
headers => {
"Content-type" => "text/html; charset=ISO-8859-1",
},
'/p4_m%C3%A9%C3%A9r.html' => {
code => "200",
msg => "Ok",
+ request_headers => {
+ "Referer" => qr|http://localhost:[0-9]+/p2_%C3%A9%C3%A9n.html|,
+ },
headers => {
"Content-type" => "text/plain; charset=UTF-8",
},
},
);
-my $cmdline = $WgetTest::WGETPATH . " --iri -nH -r http://localhost:{{port}}/";
+my $cmdline = $WgetTest::WGETPATH . " -d --iri --restrict-file-names=nocontrol -nH -r http://localhost:{{port}}/";
my $expected_error_code = 0;
"p2_${eacute_u8}${eacute_u8}n.html" => {
content => $pageeen,
},
- "p3_${eurosign2_u8}${eurosign2_u8}${eurosign2_u8}.html" => {
+ "p3_${eurosign_u8}${eurosign_u8}${eurosign_u8}.html" => {
content => $pageeuro,
},
"p4_m${eacute_u8}${eacute_u8}r.html" => {
###############################################################################
my $the_test = HTTPTest->new (name => "Test-iri",
- input => \%urls,
- cmdline => $cmdline,
- errcode => $expected_error_code,
+ input => \%urls,
+ cmdline => $cmdline,
+ errcode => $expected_error_code,
output => \%expected_downloaded_files);
exit $the_test->run();