use Text::Tradition;
use_ok( 'Text::Tradition::Language::Latin' );
-eval "use Morph::Perseus";
+eval "use Lingua::Morph::Perseus";
my $err = $@;
SKIP: {
- skip "Package Morph::Perseus not found" if $err;
+ skip "Package Lingua::Morph::Perseus not found" if $err;
my $trad = Text::Tradition->new(
'language' => 'Latin',
$textstr =~ s/\s+//g;
is( $textstr, $lexstr, "Lexemes for reading $r match the reading" );
foreach my $l ( @lex ) {
+ next unless $l->matches;
next if $l->is_disambiguated;
printf( "Ambiguous lexeme %s for reading %s:\n\t%s\n", $l->string, $r->id,
join( "\n\t", map { $_->lemma . ': ' . $_->morphology->to_string } $l->matching_forms ) );
$ambig++;
}
}
- is( $ambig, 19, "Found 19 ambiguous forms as expected" );
+ is( $ambig, 4, "Found 4 ambiguous forms as expected" );
}
}