use strict;
use Test::Base;

use Encode;
use Lingua::JA::Hepburn::Passport;

sub hepburn {
    Lingua::JA::Hepburn::Passport->new->romanize( decode_utf8($_[0]) );
}

filters {
    input => [ 'chomp', 'hepburn' ],
    expected => [ 'chomp' ],
};

run_is 'input' => 'expected';

__END__

===
--- input
なんば
--- expected
NAMBA

===
--- input
ほんま
--- expected
HOMMA

===
--- input
さんぺい
--- expected
SAMPEI

===
--- input
はっとり
--- expected
HATTORI

===
--- input
きっかわ
--- expected
KIKKAWA

===
--- input
ほっち
--- expected
HOTCHI

===
--- input
はっちょう
--- expected
HATCHO

===
--- input
こうの
--- expected
KONO

===
--- input
おおの
--- expected
ONO

===
--- input
ひゅうが
--- expected
HYUGA

===
--- input
ちゅうま
--- expected
CHUMA

===
--- input
おーの
--- expected
ONO

=== Katakana
--- input
チュウマ
--- expected
CHUMA