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

24 lines (19 sloc) 0.438 kB
use strict;
use warnings;
use Test::More tests => 3;
use Encode;
use Encode::JP::Mobile;
{
my $u = "\x{0647}";
is encode("x-sjis-vodafone", $u, Encode::FB_HTMLCREF), "ه";
}
{
my $u = "\x{0647}";
my $var = encode("x-sjis-vodafone", $u, sub { "x" . $_[0] });
is $var, "x1607";
}
{
my $s = "\x1b\x24\x47\x21\x0f";
decode('x-sjis-vodafone', $s, Encode::FB_HTMLCREF);
is $s, "\x1b\x24\x47\x21\x0f";
}
Jump to Line
Something went wrong with that request. Please try again.