use utf8;
use strict;
use warnings;
use Data::Section::TestBase;
use Test::More;
use Lingua::JA::Regular::Unicode;
for my $block (blocks) {
is katakana_h2z($block->input), $block->expected;
}
done_testing;
__END__
===
--- input: およよABCDEFGbfege123123オヨヨオヨヨ
--- expected: およよABCDEFGbfege123123オヨヨオヨヨ
===
--- input: ガ
--- expected: ガ
=== middle dots
--- input: ・・
--- expected: ・・
===
--- input: ウ
--- expected: ウ