Changeset 10678

Show
Ignore:
Timestamp:
04/28/08 20:41:13 (5 years ago)
Author:
tokuhirom
Message:

added tests.

Location:
lang/perl/HTML-ReplacePictogramMobileJp/trunk
Files:
2 modified

Legend:

Unmodified
Added
Removed

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

    r10037 r10678  
    6868Tokuhiro Matsuno E<lt>tokuhirom@gmail.comE<gt> 
    6969 
     70=head1 THANKS TO 
     71 
     72Kazuhiro Osawa 
     73 
    7074=head1 SEE ALSO 
    7175 

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

    r10024 r10678  
    11use strict; 
    22use warnings; 
    3 use Test::More tests => 17; 
     3use Test::More tests => 18; 
    44use HTML::ReplacePictogramMobileJp; 
    55use Encode; 
    … …  
    1616is _x('E', 'sjis', "&#xED80;"), "<U+ED80> E", 'kddi-sjis: kddi unicode hex cref'; 
    1717is _x('E', 'sjis', q{<img localsrc="1" />}), "<U+EF59> E", '<img localsrc=".." />'; 
     18is _x('E', 'utf8', q{<img localsrc="1" />}), "<U+EF59> E", '<img localsrc=".." />'; 
    1819# is _x('E', 'sjis', encode('x-sjis-docomo', "\x{E757}")), "<U+E757> I", 'docomo => kddi'; 
    1920is _x('E', 'sjis', encode('x-sjis-kddi-auto', "\x{ED8D}")), "<U+ED8D> E", 'kddi-auto';