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";
}