use strict;
use Test::Base;
use Encode;
use Lingua::JA::Hepburn::Passport;
sub hepburn {
Lingua::JA::Hepburn::Passport->new( strict => 1 )->romanize( decode_utf8($_[0]) );
}
filters {
input => [ 'chomp' ],
expected => [ 'chomp' ],
};
plan tests => 1 * blocks;
run {
my $block = shift;
eval { hepburn($block->input) };
ok $@, encode_utf8($@);
}
__END__
===
--- input
ほっtち
===
--- input
Foo Bar
===
--- input
ぁぃぅ