Changeset 4938 for lang/perl/HTML-ReplacePictogramMobileJp

Timestamp:

01/19/08 12:29:45 (5 years ago)

Author:

tokuhirom

Message:

vodafone maybe can display &#xXXX;

Location:

lang/perl/HTML-ReplacePictogramMobileJp/trunk

Files:

• lib/HTML/ReplacePictogramMobileJp/Vodafone.pm (modified) (1 diff)
• t/01_simple.t (modified) (2 diffs)

lang/perl/HTML-ReplacePictogramMobileJp/trunk/lib/HTML/ReplacePictogramMobileJp/Vodafone.pm

@@ -5 +5 @@
 
 filter utf8 => 'x-utf8-softbank', sub {
+    unicode_hex_cref 'V';
     unicode_property 'V';
 };
 
 filter sjis => 'x-sjis-softbank', sub {
+    unicode_hex_cref 'V';
     unicode_property 'V';
 };

lang/perl/HTML-ReplacePictogramMobileJp/trunk/t/01_simple.t

@@ -1 +1 @@
 use strict;
 use warnings;
-use Test::More tests => 10;
+use Test::More tests => 12;
 use HTML::ReplacePictogramMobileJp;
 use Encode;
@@ -15 +15 @@
 
 is _x('V', 'sjis', encode('x-sjis-softbank', "\x{E001}")), "<U+E001> V", 'softbank-escape';
+is _x('V', 'sjis', "&#xE001;"), "<U+E001> V", 'softbank-unicode-hex-cref-sjis';
 is _x('V', 'utf8', encode('x-utf8-softbank', "\x{E537}")), "<U+E537> V", 'softbank-utf8';
+is _x('V', 'utf8', "&#xE537;"), "<U+E537> V", 'softbank-utf8-hex-cref';
 
 is _x('H', 'utf8', "&#xE757;"), "<U+E757> I", 'airh sjis hex cref';