view release on metacpan or  search on metacpan

t/08_idna.t  view on Meta::CPAN

use utf8;
use AnyEvent::Util;

use Test::More;
plan skip_all => 'TODO';

$| = 1; print "1..11\n";

print "ok 1\n";

print "ko-eka" eq (AnyEvent::Util::punycode_encode "\x{f6}ko" ) ? "" : "not ", "ok 2\n";