use Test::Base;
use utf8;
use Lingua::JA::Regular::Unicode;
plan tests => 1*blocks;
run {
my $block = shift;
is katakana_z2h($block->input), $block->expected;
}
__END__
===
--- input: およよABCDEFGbfege123123オヨヨオヨヨ
--- expected: およよABCDEFGbfege123123オヨヨオヨヨ
===
--- input: ガ
--- expected: ガ