diff --git a/tests/ChangeLog b/tests/ChangeLog index 9a58797a..97237525 100644 --- a/tests/ChangeLog +++ b/tests/ChangeLog @@ -1,3 +1,8 @@ +2013-10-07 Tim Ruehsen + + * Test-idn-robots.px: added punycoded and escaped URLs to follow + removed -H + 2013-08-22 Tim Ruehsen * Makefile.am (EXTRA_DIST): Add Test--httpsonly-r.px. diff --git a/tests/Test-idn-robots.px b/tests/Test-idn-robots.px index fb060c4f..ae22b7cd 100755 --- a/tests/Test-idn-robots.px +++ b/tests/Test-idn-robots.px @@ -9,11 +9,14 @@ use HTTPTest; # " Kon'nichiwa Japan my $euc_jp_hostname = "\272\243\306\374\244\317.\306\374\313\334"; my $punycoded_hostname = 'xn--v9ju72g90p.xn--wgv71a'; +my $escaped_hostname = "%ba%a3%c6%fc%a4%cf.%c6%fc%cb%dc"; ############################################################################### my $starter_file = <The link +The second link +The third link EOF my $result_file = < $result_file, }, + "http://$punycoded_hostname/foo2.txt" => { + code => "200", + msg => "Uh-huh2", + headers => { + 'Content-Type' => 'text/plain', + }, + content => $result_file, + }, + "http://$punycoded_hostname/foo3.txt" => { + code => "200", + msg => "Uh-huh3", + headers => { + 'Content-Type' => 'text/plain', + }, + content => $result_file, + }, "http://$punycoded_hostname/robots.txt" => { code => "200", msg => "Uh-huh", @@ -48,7 +67,7 @@ my %urls = ( }, ); -my $cmdline = $WgetTest::WGETPATH . " --iri -rH" +my $cmdline = $WgetTest::WGETPATH . " --iri -r" . " -e http_proxy=localhost:{{port}} --local-encoding=EUC-JP" . " http://$euc_jp_hostname/"; @@ -61,6 +80,12 @@ my %expected_downloaded_files = ( "$punycoded_hostname/foo.txt" => { content => $result_file, }, + "$punycoded_hostname/foo2.txt" => { + content => $result_file, + }, + "$punycoded_hostname/foo3.txt" => { + content => $result_file, + }, "$punycoded_hostname/robots.txt" => { content => '', },