Changeset 4839

Timestamp:

01/18/08 10:41:42 (5 years ago)

Author:

tokuhirom

Message:

lang/perl/Encode-JP-Mobile: added unicode_auto support in Encode::JP::Mobile::Charnames::unicode2name.

Location:

lang/perl/Encode-JP-Mobile/trunk

Files:

• lib/Encode/JP/Mobile/Charnames.pm (modified) (1 diff)
• t/charnames.t (modified) (2 diffs)

lang/perl/Encode-JP-Mobile/trunk/lib/Encode/JP/Mobile/Charnames.pm

@@ -81 +81 @@
         for my $row (@$dat) {
             $unicode2name->{ hex $row->{unicode} } = decode('utf8', $row->{name});
+            if ($carrier eq 'kddi') {
+                $unicode2name->{ hex $row->{unicode_auto} } = decode('utf8', $row->{name});
+            }
         }
     }

lang/perl/Encode-JP-Mobile/trunk/t/charnames.t

@@ -2 +2 @@
 use warnings;
 use Data::Dumper;
-use Test::More tests => 20;
+use Test::More tests => 22;
 use Encode;
 
@@ -20 +20 @@
 
 is Encode::JP::Mobile::Charnames::unicode2name(0xE672), 'ビール';
+is Encode::JP::Mobile::Charnames::unicode2name(0xE5CC), '打ち上げ花火', 'ezweb-cp932';
+is Encode::JP::Mobile::Charnames::unicode2name(0xF0FC), '打ち上げ花火', 'ezweb-auto';
 is Encode::is_utf8(Encode::JP::Mobile::Charnames::unicode2name(0xE672)), 1;
 is Encode::JP::Mobile::Charnames::unicode2name_en(0xE672), 'Beer';