root/Net-IDN-Nameprep/trunk/t/03_nameprep.t

Revision 319 (checked in by miyagawa, 19 years ago)

Initial revision

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
Line 
1 use strict;
2 use Test::More 'no_plan';
3
4 use Unicode::String;
5 use Net::IDN::Nameprep;
6
7 my(@from, @to);
8
9 push @from, [ qw(012d 0111 014b) ]; push @to, [ qw(012d 0111 014b) ];
10
11 for my $i (0..$#from) {
12     my $in  = join '', map { chr hex $_ } @{$from[$i]};
13     my $out = join '', map { chr hex $_ } @{$to[$i]};
14     is nameprep($in), $out, "$in -> $out";
15 }
Note: See TracBrowser for help on using the browser.