4 use Test::More 'no_plan';
13 use_ok( 'Text::Tradition' ); # with Language
15 # Test setting and recovering language
16 my $t = Text::Tradition->new( input => 'Self', file => 't/data/legendfrag.xml' );
17 warning_like { $t->language( 'Klingon' ); } qr/^Cannot load any language/,
18 "Got expected warning for setting of unsupported language";
19 $t->language( 'English' );
20 is( $t->language, 'English', "Successfully set supported language" );
22 # Test bad attempt to lemmatize - proper lemmatization is tested separately
23 my $bt = Text::Tradition->new( input => 'Self', file => 't/data/besoin.xml' );
26 ok( 0, "Failed to throw error on lemmatizing without language" );
27 } catch( Text::Tradition::Error $e ) {
28 is( $e->message, "Please set a language to lemmatize a tradition",
29 "Got correct error thrown for lemmatization without set language" );
31 ok( 0, "Unexpected error on bad lemmatization attempt" );