#!perl -w
#
# $Id: 04-idn.t,v 1.3 2009/10/07 11:40:30 dankogai Exp $
#
# Original as URI-1.35/t/escape.t
#

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

SKIP: {
    use utf8;
    eval      { require Net::LibIDN }
      or eval { require Net::IDN::Encode }
      or skip 'Net::LibIDN or Net::IDN::Encode required', 8;

    my $d = 'http://cnn.com/news';
    my $e = 'http:%2F%2Fcnn.com%2Fnews';
    is encodeURIComponentIDN($d) => $e, 'first encodeURIComponentIDN must preserve the path';

    $d = 'http://cnn.com/news';
    $e = 'http:%2F%2Fcnn.com%2Fnews';
    is encodeURIComponentIDN($d) => $e, 'second encodeURIComponentIDN must preserve the path as well';

    $d = 'http://ドメイン名例.jp/dankogai/だん/ダン';
    $e = 'http:%2F%2Fxn--eckwd4c7cu47r2wf.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--eckwd4c7cu47r2wf.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';
    $d = 'http://مثال.إختبار';
    $e = 'http:%2F%2Fxn--mgbh0fb.xn--kgbechtv';
    is decodeURIComponentIDN($e) => $d, 'decodeURIComponentIDN';
    is encodeURIComponentIDN($d) => $e, 'encodeURIComponentIDN';
}