test_that("NBA Team and Players vs Players", {
    skip_on_cran()
    skip_on_ci()
    skip_nba_stats_test()

    # Example from nba_api docs: Cavs vs Pistons, 2019-20
    x <- nba_teamandplayersvsplayers(
        team_id = "1610612739",
        vs_team_id = "1610612765",
        player_id1 = "202681",
        player_id2 = "203078",
        player_id3 = "203507",
        player_id4 = "201567",
        player_id5 = "203954",
        vs_player_id1 = "201566",
        vs_player_id2 = "201939",
        vs_player_id3 = "201935",
        vs_player_id4 = "201142",
        vs_player_id5 = "203076",
        season = "2019-20"
    )

    skip_if(length(x) == 0, "NBA teamandplayersvsplayers endpoint unavailable")

    cols_pvp <- c(
        "GROUP_SET",
        "TITLE_DESCRIPTION",
        "DESCRIPTION",
        "MIN",
        "FGM",
        "FGA",
        "FG_PCT",
        "FG3M",
        "FG3A",
        "FG3_PCT",
        "FTM",
        "FTA",
        "FT_PCT",
        "OREB",
        "DREB",
        "REB",
        "AST",
        "TOV",
        "STL",
        "BLK",
        "BLKA",
        "PF",
        "PFD",
        "PTS",
        "PLUS_MINUS"
    )
    expect_in(sort(cols_pvp), sort(colnames(x$PlayersVsPlayers)))
    expect_s3_class(x$PlayersVsPlayers, "data.frame")

    cols_on <- c(
        "GROUP_SET",
        "TITLE_DESCRIPTION",
        "PLAYER_ID",
        "PLAYER_NAME",
        "MIN",
        "FGM",
        "FGA",
        "FG_PCT",
        "FG3M",
        "FG3A",
        "FG3_PCT",
        "FTM",
        "FTA",
        "FT_PCT",
        "OREB",
        "DREB",
        "REB",
        "AST",
        "TOV",
        "STL",
        "BLK",
        "BLKA",
        "PF",
        "PFD",
        "PTS",
        "PLUS_MINUS"
    )
    expect_in(sort(cols_on), sort(colnames(x$TeamPlayersVsPlayersOn)))
    expect_s3_class(x$TeamPlayersVsPlayersOn, "data.frame")

    expect_in(sort(cols_on), sort(colnames(x$TeamPlayersVsPlayersOff)))
    expect_s3_class(x$TeamPlayersVsPlayersOff, "data.frame")

    expect_in(sort(cols_pvp), sort(colnames(x$TeamVsPlayers)))
    expect_s3_class(x$TeamVsPlayers, "data.frame")

    expect_in(sort(cols_pvp), sort(colnames(x$TeamVsPlayersOff)))
    expect_s3_class(x$TeamVsPlayersOff, "data.frame")

    Sys.sleep(3)
})