use strict;
use Test::More tests => 14;

use WWW::Baseball::NPB;

{
    local $^W = 0;
    *LWP::Simple::get = sub ($) {
	local $/;
	require FileHandle;
	my $handle = FileHandle->new("t/20020331-live.html");
	return <$handle>;
    };
}

my $baseball = WWW::Baseball::NPB->new;

{
    my @games = $baseball->games;
    is @games, 6;

    isa_ok $_, 'WWW::Baseball::NPB::Game' for @games;

    my $game = $games[3];
    is $game->league, 'pacific';
    is $game->home, '¶áÅ´';
    is $game->visitor, '¥ª¥ê¥Ã¥¯¥¹';
    is $game->score('¶áÅ´'), 0;
    is $game->score('¥ª¥ê¥Ã¥¯¥¹'), 0;
    is $game->status, '1²ó΢';
    is $game->stadium, 'Âçºå¥É¡¼¥à';
}