Changeset 4827

Show
Ignore:
Timestamp:
01/18/08 02:58:18 (5 years ago)
Author:
miyagawa
Message:

commitfailing test

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/Encode-JP-Mobile/trunk/t/emoji_convert_utf8.t

    r4731 r4827  
    44use Encode::JP::Mobile; 
    55 
    6 plan tests => 2 * 9 + 9; 
     6plan tests => 4 * 9 + 9; 
    77 
    8 simple_pair("\xEE\x98\xBE", "\xEE\xBD\xA0", "\xEE\x81\x8A"); # sunny 
    9 simple_pair("\xEE\x9B\xA5", "\xEF\x81\x81", "\xEE\x88\x9F"); # number 4 
     8simple_pair(docomo => "\xEE\x98\xBE", kddi => "\xEE\xBD\xA0", softbank => "\xEE\x81\x8A"); # sunny 
     9simple_pair(docomo => "\xEE\x9B\xA5", kddi => "\xEF\x81\x81", softbank => "\xEE\x88\x9F"); # number 4 
     10simple_pair(docomo => "\xee\x9c\xa2", kddi => "\xee\xbd\x89", softbank => "\xee\x90\x95"); # Hiyaase 
     11simple_pair(docomo => "\xee\x98\xbe", kddi => "\xee\xbd\xa6", softbank => "\xee\x81\x8a"); # KDDI-Auto 
    1012 
    1113sub simple_pair { 
    12     my ($docomo, $kddi, $softbank) = @_; 
     14    my(%bytes) = @_; 
    1315 
    14     is encode('x-utf8-docomo',   decode('x-utf8-docomo', $docomo)), $docomo, 'I => I'; 
    15     is encode('x-utf8-kddi',     decode('x-utf8-docomo', $docomo)), $kddi, 'I => E'; 
    16     is encode('x-utf8-softbank', decode('x-utf8-docomo', $docomo)), $softbank, 'I => V'; 
    17      
    18     is encode('x-utf8-docomo',   decode('x-utf8-ezweb', $kddi)), $docomo; 
    19     is encode('x-utf8-kddi',     decode('x-utf8-ezweb', $kddi)), $kddi, 'E => E'; 
    20     is encode('x-utf8-softbank', decode('x-utf8-ezweb', $kddi)), $softbank; 
    21      
    22     is encode('x-utf8-docomo',   decode('x-utf8-softbank', $softbank)), $docomo, 'V => I'; 
    23     is encode('x-utf8-kddi',     decode('x-utf8-softbank', $softbank)), $kddi; 
    24     is encode('x-utf8-softbank', decode('x-utf8-softbank', $softbank)), $softbank; 
     16    my @test = qw( docomo kddi softbank ); 
     17 
     18    for my $from (@test) { 
     19        for my $to (@test) { 
     20            my $char = decode("x-utf8-" . $from, $bytes{$from}); 
     21            my $hex  = sprintf '%X', ord $char; 
     22            is encode("x-utf8-" . $to, $char), $bytes{$to}, "$from -> $to (U+$hex)"; 
     23        } 
     24    } 
    2525} 
    2626 
    … …  
    2929    my $kddi     = "\xEE\xB3\x9E"; 
    3030    my $softbank = "\xEE\x94\xA2"; 
    31      
     31 
    3232    is encode('x-utf8-docomo',   decode('x-utf8-docomo', $docomo)), $docomo; 
    3333    is encode('x-utf8-kddi',     decode('x-utf8-docomo', $docomo)), "\xEE\xBD\xB2"; # kddi Pisces sign 
    3434    is encode('x-utf8-softbank', decode('x-utf8-docomo', $docomo)), "\xEE\x80\x99"; # softbank Pisces sign 
    35      
     35 
    3636    is encode('x-utf8-docomo',   decode('x-utf8-kddi', $kddi)), $docomo; 
    3737    is encode('x-utf8-kddi',     decode('x-utf8-kddi', $kddi)), $kddi, 'E => E'; 
    3838    is encode('x-utf8-softbank', decode('x-utf8-kddi', $kddi)), $softbank; 
    39      
     39 
    4040    is encode('x-utf8-docomo',   decode('x-utf8-softbank', $softbank)), $docomo; 
    4141    is encode('x-utf8-kddi',     decode('x-utf8-softbank', $softbank)), $kddi, 'V => E';