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

diff --git a/t/text_tradition_language_latin.t b/t/text_tradition_language_latin.t
index 0fe9405..4b948f6 100644
--- a/t/text_tradition_language_latin.t
+++ b/t/text_tradition_language_latin.t
@@ -11,11 +11,11 @@ $| = 1;
 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',
@@ -39,7 +39,7 @@ SKIP: {
 			$ambig++;
 		}
 	}
-	is( $ambig, 7, "Found 7 ambiguous forms as expected" );
+	is( $ambig, 4, "Found 4 ambiguous forms as expected" );
 }
 }