root/lang/perl/URI-Escape-XS/trunk/t/04-idn.t @ 28516

#!perl -w
#
# $Id: 04-idn.t,v 1.1 2009/01/16 08:26:52 dankogai Exp dankogai $
#
# Original as URI-1.35/t/escape.t
#

use URI::Escape::XS;
use Test::More tests => 4;

SKIP:{
    use utf8;
    eval { require Net::IDN::Encode };
    skip 'Net::IDN::Encode required', 2 if $@;
    my $d = 'http://弾.jp/dankogai/だん/ダン';
    my $e = 'http:%2F%2Fxn--81t.jp%2Fdankogai%2F%E3%81%A0%E3%82%93%2F%E3%83%80%E3%83%B3';
    is decodeURIComponentIDN($e) => $d, 'decodeURIComponentIDN';
    is encodeURIComponentIDN($d) => $e, 'encodeURIComponentIDN';
    $d = 'http://弾.jp:8080/dankogai/だん/ダン';
    $e = 'http:%2F%2Fxn--81t.jp:8080%2Fdankogai%2F%E3%81%A0%E3%82%93%2F%E3%83%80%E3%83%B3';
    is decodeURIComponentIDN($e) => $d, 'decodeURIComponentIDN';
    is encodeURIComponentIDN($d) => $e, 'encodeURIComponentIDN';
}