The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
SADAHIRO / ShiftJIS-CP932-MapUTF-1.03 / t / t04xncr.t 

BEGIN { $| = 1; print "1..41\n"; }
END {print "not ok 1\n" unless $loaded;}

use ShiftJIS::CP932::MapUTF qw(:all);
$loaded = 1;
print "ok 1\n";

$repeat = 1000;

$hasUnicode = defined &cp932_to_unicode;

sub hexNCR {
    my ($char, $byte) = @_;
    return sprintf("&#x%x;", $char) if defined $char;
    die sprintf "illegal byte 0x%02x was found", $byte;
}

#####

print "𐀀abc𒍅xyz􏿼" eq
	utf16le_to_cp932(\&hexNCR, "\x00\xd8\x00\xdc\x61\x00\x62\x00\x63\x00"
	    . "\x08\xD8\x45\xDF\x78\x00\x79\x00\x7a\x00\xff\xdb\xfc\xdf")
    ? "ok" : "not ok" , " ", ++$loaded, "\n";

print "𐀀abc𒍅xyz􏿼" eq
	utf16be_to_cp932(\&hexNCR, "\xd8\x00\xdc\x00\x00\x61\x00\x62\x00\x63"
	    . "\xD8\x08\xDF\x45\x00\x78\x00\x79\x00\x7a\xdb\xff\xdf\xfc")
    ? "ok" : "not ok" , " ", ++$loaded, "\n";

print "𐀀abc𒍅xyz􏿼" eq
	utf32le_to_cp932(\&hexNCR,
	    "\x00\x00\x01\x00\x61\0\0\0\x62\0\0\0\x63\0\0\0\x45\x23\x01\x00" .
	    "\x78\0\0\0\x79\0\0\0\x7a\0\0\0\xfc\xff\x10\x00")
    ? "ok" : "not ok" , " ", ++$loaded, "\n";

print "𐀀abc𒍅xyz􏿼" eq
	utf32be_to_cp932(\&hexNCR,
	    "\x00\x01\x00\x00\0\0\0\x61\0\0\0\x62\0\0\0\x63\x00\x01\x23\x45" .
	    "\0\0\0\x78\0\0\0\x79\0\0\0\x7a\x00\x10\xff\xfc")
    ? "ok" : "not ok" , " ", ++$loaded, "\n";

print !$hasUnicode || "𐀀abc𒍅xyz􏿼" eq
	unicode_to_cp932(\&hexNCR,  pack 'U*', 0x10000, 0x61, 0x62, 0x63,
	    0x12345, 0x78, 0x79, 0x7a, 0x10fffc)
    ? "ok" : "not ok" , " ", ++$loaded, "\n";

print "𐀀abc𒍅xyz􏿼" eq
	utf8_to_cp932(\&hexNCR, "\xF0\x90\x80\x80\x61\x62\x63" .
	    "\xF0\x92\x8D\x85\x78\x79\x7A\xF4\x8F\xBF\xBC")
    ? "ok" : "not ok" , " ", ++$loaded, "\n";

#####

print "ÿ\x81\x93𪳞\x83\xbf곞" x $repeat eq
	utf16le_to_cp932(\&hexNCR,
	    "\xff\x00\x05\xff\x6B\xD8\xDE\xDC\xB1\x03\xde\xAC" x $repeat)
    ? "ok" : "not ok" , " ", ++$loaded, "\n";

print "ÿ\x81\x93𪳞\x83\xbf곞" x $repeat eq
	utf16be_to_cp932(\&hexNCR,
	    "\x00\xff\xff\x05\xD8\x6B\xDC\xDE\x03\xB1\xAC\xde" x $repeat)
    ? "ok" : "not ok" , " ", ++$loaded, "\n";

print "ÿ\x81\x93𪳞\x83\xbf곞" x $repeat eq
	utf32le_to_cp932(\&hexNCR,
	    "\xff\0\0\0\x05\xff\0\0\xDE\xAC\x02\x00\xB1\x03\0\0\xde\xAC\0\0"
		x $repeat)
    ? "ok" : "not ok" , " ", ++$loaded, "\n";

print "ÿ\x81\x93𪳞\x83\xbf곞" x $repeat eq
	utf32be_to_cp932(\&hexNCR,
	    "\0\0\0\xff\0\0\xff\x05\x00\x02\xAC\xDE\0\0\x03\xB1\0\0\xAC\xde"
		x $repeat)
    ? "ok" : "not ok" , " ", ++$loaded, "\n";

print "ÿ\x81\x93𪳞\x83\xbf곞" x $repeat eq
	utf8_to_cp932(\&hexNCR,
	    "\xC3\xBF\xEF\xBC\x85\xF0\xAA\xB3\x9E\xCE\xB1\xEA\xB3\x9E"
		x $repeat)
    ? "ok" : "not ok" , " ", ++$loaded, "\n";

print !$hasUnicode || "ÿ\x81\x93𪳞\x83\xbf곞" x $repeat eq
	unicode_to_cp932(\&hexNCR,
	    pack('U*', 0xff, 0xff05, 0x2acde, 0x3B1, 0xacde) x $repeat)
    ? "ok" : "not ok" , " ", ++$loaded, "\n";

#####

print "ABCD" eq utf16le_to_cp932("\x41\x00\x40\xDB\x01\xDC\x42\x00" .
	"\xEA\xDB\xCD\xDF\x43\x00\x00\xD8\x00\xDC\x44\x00")
    ? "ok" : "not ok" , " ", ++$loaded, "\n";

print "ABCD" eq utf16be_to_cp932("\x00\x41\xDB\x40\xDC\x01\x00\x42" .
	"\xDB\xEA\xDF\xCD\x00\x43\xD8\x00\xDC\x00\x00\x44")
    ? "ok" : "not ok" , " ", ++$loaded, "\n";

print "ABCD" eq utf32le_to_cp932("\x41\0\0\0\x01\x00\x0E\x00\x42\0\0\0" .
	"\xCD\xAB\x10\x00\x43\0\0\0\x00\x00\x01\x00\x44\0\0\0")
    ? "ok" : "not ok" , " ", ++$loaded, "\n";

print "ABCD" eq utf32be_to_cp932("\0\0\0\x41\x00\x0E\x00\x01\0\0\0\x42" .
	"\x00\x10\xAB\xCD\0\0\0\x43\x00\x01\x00\x00\0\0\0\x44")
    ? "ok" : "not ok" , " ", ++$loaded, "\n";

print "ABCD" eq utf8_to_cp932(
	"\x41\xF3\xA0\x80\x81\x42\xF4\x8A\xAF\x8D\x43\xF0\x90\x80\x80\x44")
    ? "ok" : "not ok" , " ", ++$loaded, "\n";

print !$hasUnicode || "ABCD" eq unicode_to_cp932(
	"A".chr(0xE0001)."B".chr(0x10ABCD)."C".chr(0x10000)."D")
    ? "ok" : "not ok" , " ", ++$loaded, "\n";

#####

print "A󠀁B􊯍C𐀀D" eq
	utf16le_to_cp932(sub { sprintf "&#x%04X;", shift },
	    "\x41\x00\x40\xDB\x01\xDC\x42\x00\xEA\xDB\xCD\xDF" .
	    "\x43\x00\x00\xD8\x00\xDC\x44\x00")
    ? "ok" : "not ok" , " ", ++$loaded, "\n";

print "A󠀁B􊯍C𐀀D" eq
	utf16be_to_cp932(sub { sprintf "&#x%04X;", shift },
	    "\x00\x41\xDB\x40\xDC\x01\x00\x42\xDB\xEA\xDF\xCD" .
	    "\x00\x43\xD8\x00\xDC\x00\x00\x44")
    ? "ok" : "not ok" , " ", ++$loaded, "\n";

print "A󠀁B􊯍C𐀀D" eq
	utf32le_to_cp932(sub { sprintf "&#x%04X;", shift },
	    "\x41\0\0\0\x01\x00\x0E\x00\x42\0\0\0\xCD\xAB\x10\x00" .
	    "\x43\0\0\0\x00\x00\x01\x00\x44\0\0\0")
    ? "ok" : "not ok" , " ", ++$loaded, "\n";

print "A󠀁B􊯍C𐀀D" eq
	utf32be_to_cp932(sub { sprintf "&#x%04X;", shift },
	    "\0\0\0\x41\x00\x0E\x00\x01\0\0\0\x42\x00\x10\xAB\xCD" .
	    "\0\0\0\x43\x00\x01\x00\x00\0\0\0\x44")
    ? "ok" : "not ok" , " ", ++$loaded, "\n";

print "A󠀁B􊯍C𐀀D" eq
	utf8_to_cp932(sub { sprintf "&#x%04X;", shift },
	    "\x41\xF3\xA0\x80\x81\x42\xF4\x8A\xAF\x8D\x43\xF0\x90\x80\x80\x44")
    ? "ok" : "not ok" , " ", ++$loaded, "\n";

print !$hasUnicode || "A󠀁B􊯍C𐀀D" eq
	unicode_to_cp932(sub { sprintf "&#x%04X;", shift },
	    "A".chr(0xE0001)."B".chr(0x10ABCD)."C".chr(0x10000)."D")
    ? "ok" : "not ok" , " ", ++$loaded, "\n";

#####

print "﻾" eq
	utf16be_to_cp932(\&hexNCR,
	    "\xff\xfe\xff\xff\xfe\xfe\xfe\xff\xff\xfe")
    ? "ok" : "not ok" , " ", ++$loaded, "\n";

print "﻾" eq
	utf16le_to_cp932(\&hexNCR,
	    "\xfe\xff\xff\xff\xfe\xfe\xff\xfe\xfe\xff")
    ? "ok" : "not ok" , " ", ++$loaded, "\n";

print "﻾" eq
	utf16_to_cp932(\&hexNCR,
	    "\xff\xfe\xff\xff\xfe\xfe\xfe\xff\xff\xfe")
    ? "ok" : "not ok" , " ", ++$loaded, "\n";

print "﻾" eq
	utf16_to_cp932(\&hexNCR,
	    "\xfe\xff\xff\xff\xfe\xfe\xfe\xff\xff\xfe")
    ? "ok" : "not ok" , " ", ++$loaded, "\n";

print "﻾" eq
	utf16_to_cp932(\&hexNCR,
	    "\xff\xff\xfe\xfe\xfe\xff\xff\xfe")
    ? "ok" : "not ok" , " ", ++$loaded, "\n";

print "﻾" eq
	utf32be_to_cp932(\&hexNCR,
	    "\0\0\xff\xfe\0\0\xff\xff\0\0\xfe\xfe\0\0\xfe\xff\0\0\xff\xfe")
    ? "ok" : "not ok" , " ", ++$loaded, "\n";

print "﻾" eq
	utf32le_to_cp932(\&hexNCR,
	    "\xfe\xff\0\0\xff\xff\0\0\xfe\xfe\0\0\xff\xfe\0\0\xfe\xff\0\0")
    ? "ok" : "not ok" , " ", ++$loaded, "\n";

print "﻾" eq
	utf32_to_cp932(\&hexNCR,
	    "\xff\xfe\0\0\xff\xff\0\0\xfe\xfe\0\0\xfe\xff\0\0\xff\xfe\0\0")
    ? "ok" : "not ok" , " ", ++$loaded, "\n";

print "﻾" eq
	utf32_to_cp932(\&hexNCR,
	    "\0\0\xfe\xff\0\0\xff\xff\0\0\xfe\xfe\0\0\xfe\xff\0\0\xff\xfe")
    ? "ok" : "not ok" , " ", ++$loaded, "\n";

print "﻾" eq
	utf32_to_cp932(\&hexNCR,
	    "\0\0\xff\xff\0\0\xfe\xfe\0\0\xfe\xff\0\0\xff\xfe")
    ? "ok" : "not ok" , " ", ++$loaded, "\n";

print "﻾" eq
	utf32_to_cp932(\&hexNCR,
	    "\0\0\xff\xfe\0\0\xfe\xfe\0\0\xfe\xff\0\0\xff\xfe")
    ? "ok" : "not ok" , " ", ++$loaded, "\n";

print "﻾﻾" eq
	utf32_to_cp932(\&hexNCR,
	    "\0\0\xfe\xfe\0\0\xfe\xfe\0\0\xfe\xff\0\0\xff\xfe")
    ? "ok" : "not ok" , " ", ++$loaded, "\n";

#####

print "" eq utf16_to_cp932(\&hexNCR, "\xfe\xff")
    ? "ok" : "not ok" , " ", ++$loaded, "\n";

print "" eq utf16_to_cp932(\&hexNCR, "\xff\xfe")
    ? "ok" : "not ok" , " ", ++$loaded, "\n";

print "" eq utf32_to_cp932(\&hexNCR, "\0\0\xfe\xff")
    ? "ok" : "not ok" , " ", ++$loaded, "\n";

print "" eq utf32_to_cp932(\&hexNCR, "\xff\xfe\0\0")
    ? "ok" : "not ok" , " ", ++$loaded, "\n";

1;
__END__