# 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" );