view release on metacpan or  search on metacpan

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

1
2
3
4
5
6
7
8
9
10
11
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";