keep analysis scripts out of CPAN; make CHANGES file; increment versions for release
[scpubgit/stemmatology.git] / morphology / t / text_tradition_language.t
index 92f736a..7454985 100644 (file)
@@ -14,7 +14,7 @@ use_ok( 'Text::Tradition' ); # with Language
 
 # Test setting and recovering language
 my $t = Text::Tradition->new( input => 'Self', file => 't/data/legendfrag.xml' );
-warning_like { $t->language( 'Klingon' ); } qr/^Cannot load language/,
+warning_like { $t->language( 'Klingon' ); } qr/^Cannot load any language/,
        "Got expected warning for setting of unsupported language";
 $t->language( 'English' );
 is( $t->language, 'English', "Successfully set supported language" );