diag("Testing follow/unfollow"); my $f = 'c9s'; my $is_following = $user->is_following($f); if ($is_following) { diag("unfollow then follow"); my $ok = $user->unfollow($f); ok($ok); $ok = $user->follow($f); ok($ok);

my $following = $user->following;
ok( (grep { $_->{login} eq $f } @$following ) );
} else {
diag("follow then unfollow");
my $ok = $user->follow($f);
ok($ok);

my $following = $user->following;
ok( (grep { $_->{login} eq $f } @$following ) );

$ok = $user->unfollow($f);
ok($ok);
}