ext/Encode/t/CJKalias.t

   1 use strict;
   2 #use Test::More tests => 27;
   3 use Test::More qw(no_plan);
   4 use Encode::CN;
   5 use Encode::JP;
   6 use Encode::KR;
   7 use Encode::TW;
   8
   9 print "# alias test\n";
  10
  11 my %a2c = qw(
  12              ja_JP.euc  euc-jp
  13              x-euc-jp   euc-jp
  14              zh_CN.euc  euc-cn
  15              x-euc-cn   euc-cn
  16              ko_KR.euc  euc-kr
  17              x-euc-kr   euc-kr
  18              ujis       euc-jp
  19              Shift_JIS  shiftjis
  20              x-sjis     shiftjis
  21              jis        7bit-jis
  22              );
  23
  24 foreach my $a (keys %a2c){
  25     my $e = Encode::find_encoding($a);
  26     my $n =  $e->name || $e->{name};
  27     is($n, $a2c{$a});
  28 }
  29