X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Ftext_tradition_language_latin.t;fp=t%2Ftext_tradition_language_latin.t;h=0fe94054fcd3d40b32527f312cb127c1ec8bc9b1;hb=fe77efe0d84ff0d31dc2ce020b73bf57783d464e;hp=4e9d60288fd99bbfe30c45cb3d2e38b9643929b2;hpb=5271a01157263fd46b8d504e0ddb0b349a3fb9c4;p=scpubgit%2Fstemmatology.git

diff --git a/t/text_tradition_language_latin.t b/t/text_tradition_language_latin.t
index 4e9d602..0fe9405 100644
--- a/t/text_tradition_language_latin.t
+++ b/t/text_tradition_language_latin.t
@@ -32,13 +32,14 @@ SKIP: {
 		$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, 7, "Found 7 ambiguous forms as expected" );
 }
 }