ext/Encode/t/CJKalias.t

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