use strict;
use warnings;
use Test::More qw(no_plan);
use Lingua::JA::Romaji::Valid;

my $validator = Lingua::JA::Romaji::Valid->new('international');

# names shouldn't have syllabic 'n/m' at the beginning
ok !$validator->as_name('ngawa'); 

# names shouldn't have particle 'wo' at the beginning
ok !$validator->as_name('wogawa'); 

# fullname should have both first and last names
# but not a middle name
ok !$validator->as_fullname('ishigaki');
ok  $validator->as_fullname('ishigaki kenichi');
ok !$validator->as_fullname('ishigaki no kenichi');

# Japanese names shouldn't have foreign kanas
ok  $validator->as_romaji('vaiorin');
ok !$validator->as_name('vaiorin');

ok  $validator->as_romaji('kwawai');
ok !$validator->as_name('kwawai');

ok  $validator->as_romaji('yebisu');
ok !$validator->as_name('yebisu');

ok  $validator->as_romaji('fasuto');
ok !$validator->as_name('tsero');

ok  $validator->as_romaji('jetto');
ok !$validator->as_name('jetto');

ok  $validator->as_romaji('chen');
ok !$validator->as_name('chen');

ok  $validator->as_romaji('shen');
ok !$validator->as_name('shen');