Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
21 lines (17 sloc) 636 Bytes
use strict;
use warnings;
use Test::More tests => 3;
use Encode::JP::Mobile;
use Encode;
# 絵文字のページがかわるごとにエスケープシーケンスによるページきりかえを発生させないといけない。
test_it( "\x{E001}", qq{\x1B\x24G!\x0F}, 'single char' );
test_it( "\x{E001}\x{E002}", qq{\x1B\x24G!"\x0F}, 'pair char in same page' );
test_it(
"\x{E04A}\x{E20E}\x{E143}",
( "\x1B\x24Gj\x0F" . "\x1B\x24F.\x0F" . "\x1B\x24Ec\x0F" ),
"three characters with different page"
);
sub test_it {
my ($uni, $sjis, $name) = @_;
is encode("x-sjis-softbank", $uni), $sjis, $name;
}