root/lang/perl/Encode-JP-Mobile/trunk/t/kddi-jis.t @ 5222

use strict;
use warnings;
use Test::More tests => 41;
use Encode::JP::Mobile;
use Encode::JP::Mobile::KDDIJIS;
use Encode;

sub test_it {
    my ($jis, $normal_uni, $auto_uni, $case) = @_;
    $case ||= unpack "H*", $normal_uni;

    is decode("x-iso-2022-jp-kddi", $jis), $normal_uni, "decoding $case(normal)";
    is $jis, encode("x-iso-2022-jp-ezweb", $normal_uni), "encoding $case(normal)";
    is decode("x-iso-2022-jp-ezweb-auto", $jis), $auto_uni, "decoding $case(auto)";
    is $jis, encode("x-iso-2022-jp-kddi-auto", $auto_uni), "encoding $case(auto)";

    # test kddi-auto Unicode chars as well ... rare in reality though
    my $bytes = $jis;
    Encode::from_to($bytes, "x-iso-2022-jp-kddi" => "x-sjis-kddi-cp932-raw");
    Encode::from_to($bytes, "x-kddi-cp932-raw", "x-iso-2022-jp-kddi");
    is $bytes, $jis, "x-sjis-kddi-auto $case";
}

test_it("\e\$B\x75\x41\e(B", "\x{E488}", "\x{EF60}", "pictogram");

test_it "a", decode('utf8', 'a'), decode('utf8', 'a'), 'alphabet';
test_it "\e\$B\x24\x57\e\(B", "\x{3077}", "\x{3077}", 'kanji(tora)';

is encode('x-iso-2022-jp-kddi', "\x{5bc5}"), encode('iso-2022-jp', "\x{5bc5}"), "kanji";

test_it "\e\$B\x75\x41\e(B", "\x{E488}", "\x{EF60}", 'pictogram';
test_it "\e\$B\x75\x41\x76\x76\e(B", "\x{e488}\x{e51b}", "\x{EF60}\x{EFF4}", 'pictogram';
test_it encode('iso-2022-jp', decode("utf8", "お")), decode('utf8', "お"), decode('utf8', "お"), 'o';
test_it encode('iso-2022-jp', decode("utf8", "おいおい。山岡くん。kanbenしてくれよ！表示。")), decode('utf8', "おいおい。山岡くん。kanbenしてくれよ！表示。"), decode('utf8', "おいおい。山岡くん。kanbenしてくれよ！表示。"), 'kanji, hiragana, alphabet';
test_it "\e\(I\x54\x2F\x4E\x5F\e(B", decode('utf8', "ﾔｯﾎﾟ"), decode('utf8', "ﾔｯﾎﾟ"), 'half width katakana';

# is decode('x-iso-2022-jp-kddi', "\e\$(D\x2B\x21\x30\x57\e(B"), "\x{00E1}\x{4F0C}", 'JIS X 0212';