sub join_team : Test : Plan(3) {
    my ( $self, $role ) = @_;

    my $team   = $self->team;
    my $player = $self->person;
    $role    ||= 'Player';

    $role = blessed $role && $role->isa('Roostermatic::Schema::Role') ?        $role :
        $self->schema->resultset('Role')->find_or_create({ name => $role });

    SKIP: {
        skip "Unable to assign team manager without team setup", 3
            unless defined $team;
        skip "Unable to assign team manager without player setup", 3
            unless defined $player;
        $team->remove_member($player);
        #is($team->player_links({ player_pk1 => $player->id })->count, '==', 0,
'not part of team');
        ok(!$team->is_member($player), 'not part of team');
        $team->assign_role($player, $role);
        ok($team->is_member($player), 'joined team');
        ok($team->is_member($player, $role), "proper role");
    }
}