Changeset 4880 for lang/perl/Encode-JP-Mobile/trunk/t/charnames.t

Timestamp:

01/18/08 16:21:34 (5 years ago)

Author:

miyagawa

Message:

KDDI/SoftBank の英語名について、DoCoMoからマッピングしたので同一の英語名が複数の文字に割り当てられるようになった。同一のものについては、コードが若い方を優先するように変更。

Files:

• lang/perl/Encode-JP-Mobile/trunk/t/charnames.t (modified) (2 diffs)

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

@@ -2 +2 @@
 use warnings;
 use Data::Dumper;
-use Test::More tests => 27;
+use Test::More tests => 29;
 use Encode;
 
@@ -32 +32 @@
 is unicode2name_en(0xE047), 'Beer'; # Softbank
 
-is sprintf("%X", unpack "U*", "\N{DoCoMo Beer}"), "E672";
-is sprintf("%X", unpack "U*", "\N{DoCoMo ファーストフード}"), "E673";
-is sprintf("%X", unpack "U*", "\N{DIGIT SIX}"), "36";
+is "\N{DoCoMo Beer}", "\x{E672}";
+is "\N{DoCoMo ファーストフード}", "\x{E673}";
+is "\N{KDDI Beer}", "\x{E4C3}";
+is "\N{SoftBank Beer}", "\x{E047}";
+
+is "\N{DIGIT SIX}", "6";
 
 is Encode::is_utf8("\N{DoCoMo Beer}"), 1;