use strict;
use warnings;
use Text::KyTea;
use Test::More;
my $kytea = Text::KyTea->new(
model => './model/test.mod',
tagmax => 1,
);
tagmax_test( $kytea->parse("コーパスの文です。") );
tagmax_test( $kytea->parse("もうひとつの文です。") );
is($kytea->pron("コーパスの文です。"), 'こーぱすのぶんです。');
done_testing;
sub tagmax_test
{
my $results = shift;
for my $result (@{$results})
{
my $pos_tag = $result->{tags}[0];
is(scalar @{$pos_tag}, 1);
my $pron_tag = $result->{tags}[1];
is(scalar @{$pron_tag}, 1);
}
}