use strict;
use warnings;
use Test::More tests => 10;

use_ok( 'WWW::Wikipedia::Entry' );

my $wikitext = getWikiText( 'perl.raw' );

my $entry = WWW::Wikipedia::Entry->new( $wikitext,
    'http://en.wikipedia.org/wiki/Perl' );
isa_ok( $entry, 'WWW::Wikipedia::Entry' );

is( $entry->languages(), 15,   'languages()' );
is( $entry->language(),  'en', 'language()' );

my $entry_es = $entry->language( 'es' );
isa_ok( $entry_es, 'WWW::Wikipedia::Entry' );

ok( $entry_es->languages() > 0, 'languages()' );
is( $entry_es->language(), 'es', 'language()' );

{
    my $ru = WWW::Wikipedia->new->search( 'Babushka' );
    isa_ok( $ru, 'WWW::Wikipedia::Entry' );
    my $ru_ru = $ru->language( 'ru' );
    isa_ok( $ru_ru, 'WWW::Wikipedia::Entry' );
    ok( $ru_ru->text, 'Page for "Babushka" in Russian' );
}

## fetches some wikitext from disk
sub getWikiText {
    my $file = shift;
    open( TEXT, "t/$file" );
    my $text = join( '', <TEXT> );
    close( TEXT );
    return ( $text );
}