use strict;
use Test::Base;
use Encode;
use Lingua::JA::Hepburn::Passport;
sub hepburn {
Lingua::JA::Hepburn::Passport->new( long_vowels_h => 1 )->romanize( decode_utf8($_[0]) );
}
filters {
input => [ 'chomp', 'hepburn' ],
expected => [ 'chomp' ],
};
run_is 'input' => 'expected';
__END__
===
--- input
ほっち
--- expected
HOTCHI
===
--- input
はっちょう
--- expected
HATCHOH
===
--- input
こうの
--- expected
KOHNO
===
--- input
おおの
--- expected
OHNO
===
--- input
ひゅうが
--- expected
HYUGA