use Test::More tests => 7;
use WWW::Wikipedia;
my $wiki;
# test default language: 'en'
$wiki = WWW::Wikipedia->new();
isa_ok( $wiki, 'WWW::Wikipedia' );
is( $wiki->language, 'en', 'default language' );
# test language on new()
$wiki = WWW::Wikipedia->new( language => 'es' );
isa_ok( $wiki, 'WWW::Wikipedia' );
is( $wiki->language, 'es', "new( language => 'es' )" );
# test language switching after new()
$wiki = WWW::Wikipedia->new();
isa_ok( $wiki, 'WWW::Wikipedia' );
is( $wiki->language, 'en', 'default language' );
$wiki->language( 'fr' );
is( $wiki->language, 'fr', "language( 'fr' )" );