Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Branch: master
Fetching contributors…

Cannot retrieve contributors at this time

23 lines (18 sloc) 0.59 kB
use strict;
use warnings;
use Encode;
use Encode::JP::Mobile ':props';
use Test::More;
eval { require YAML };
plan skip_all => $@ if $@;
my $dat = YAML::LoadFile("dat/docomo-table.yaml");
plan tests => 5 * @$dat;
for my $r (@$dat) {
my $sjis = pack "H*", $r->{sjis};
my $unicode = chr hex $r->{unicode};
is decode("x-sjis-docomo", $sjis), $unicode, $r->{unicode};
is encode("x-sjis-docomo", $unicode), $sjis, $r->{unicode};
ok $unicode =~ /^\p{InDoCoMoPictograms}+$/;
ok $unicode =~ /^\p{InMobileJPPictograms}+$/;
ok $unicode !~ /^\p{InKDDIPictograms}+$/;
}
Jump to Line
Something went wrong with that request. Please try again.