use Test::More tests => 11;
BEGIN { use_ok 'WWW::Yahoo::Groups' }

my $w = WWW::Yahoo::Groups->new();

isa_ok( $w => 'WWW::Yahoo::Groups' );

my $rv = eval { $w->logout() };
if ($rv and ref $rv and $rv->isa('X::WWW::Yahoo::Groups::NotLoggedIn') ) {
    pass("Can not log out if not logged in.");
} elsif ($rv) {
    fail("logout(): unexpected error: $rv");
} else {
    fail("logout(): Expected error, did not receive one.");
}

for (1..2)
{
    eval { $w->login( 'perligain7ya5h00grrzogups' => 'redblacktrees' ) };
    ok (!$@, "Logged in");
    ok ($w->loggedin, "Am logged in");

    eval { $w->logout( ) };
    ok (!$@, "Logged out");
    diag $@ if $@;
    ok (!$w->loggedin, "Am logged out");
}