1#!/usr/bin/perl 2 3use strict; 4use warnings; 5 6use WgetFeature qw(iri); 7use HTTPTest; 8 9# " Kon'nichiwa <dot> Japan 10my $euc_jp_hostname = "\272\243\306\374\244\317.\306\374\313\334"; 11my $punycoded_hostname = 'xn--v9ju72g90p.xn--wgv71a'; 12 13############################################################################### 14 15my $result_file = <<EOF; 16Found me! 17EOF 18 19# code, msg, headers, content 20my %urls = ( 21 "http://$punycoded_hostname/index.html" => { 22 code => "200", 23 msg => "Yes, please", 24 headers => { 25 'Content-Type' => 'text/plain', 26 }, 27 content => $result_file, 28 }, 29); 30 31my $cmdline = $WgetTest::WGETPATH . " --debug --iri -rH" 32 . " -e http_proxy=localhost:{{port}} --local-encoding=EUC-JP $euc_jp_hostname"; 33 34my $expected_error_code = 0; 35 36my %expected_downloaded_files = ( 37 "$punycoded_hostname/index.html" => { 38 content => $result_file, 39 }, 40); 41 42############################################################################### 43 44my $the_test = HTTPTest->new (name => "Test-idn-cmd", 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