BEGIN { $| = 1; print "1..53\n"; }
END {print "not ok 1\n" unless $loaded;}
use ShiftJIS::String qw(:kana :H2Z :Z2H toupper tolower);
$^W = 1;
$loaded = 1;
print "ok 1\n";
#####
{
my $wiwewakake = 'îï쩯AETURS';
foreach $ary (
[ \&kataH2Z, 'îï쩯AETURS', 0 ],
[ \&kanaH2Z, 'îï쩯AETURS', 0 ],
[ \&hiraH2Z, 'îï쩯AETURS', 0 ],
[ \&kataZ2H, 'îï쩯±³Þ²´Ü¶¹³TURS', 8 ],
[ \&kanaZ2H, '²´Ü¶¹±³Þ²´Ü¶¹³TURS', 13 ],
[ \&hiraZ2H, '²´Ü¶¹AETURS', 5 ],
[ \&hiXka, 'JP ¤Jîï쩯¤RSTU', 17 ],
[ \&hi2ka, 'JPAERSRS', 7 ],
[ \&ka2hi, 'îï쩯 ¤Jîï쩯¤TUTU', 10 ],
[ \&spaceH2Z, 'îï쩯AETURS', 0 ],
[ \&spaceZ2H, 'îï쩯AETURS', 0 ],
[ \&toupper, 'îï쩯AETURS', 0 ],
[ \&tolower, 'îï쩯AETURS', 0 ],
) {
$str = $wiwewakake;
print &{ $ary->[0] }($str) eq $ary->[1]
? "ok" : "not ok", " ", ++$loaded, "\n";
print $str eq $wiwewakake
? "ok" : "not ok", " ", ++$loaded, "\n";
print &{ $ary->[0] }(\$str) eq $ary->[2]
? "ok" : "not ok", " ", ++$loaded, "\n";
print $str eq $ary->[1]
? "ok" : "not ok", " ", ++$loaded, "\n";
}
}