tests/testthat/test-espn_mbb_scoreboard.R

In saiemgilani/kenpomR: Access Men's Basketball Play by Play Data

test_that("ESPN - Get MBB scoreboard", {
  skip_on_cran()
  x <- espn_mbb_scoreboard(season = "20220215")

  cols <- c(
    "matchup",
    "matchup_short",
    "season",
    "season_type",
    "season_slug",
    "game_id",
    "game_uid",
    "game_date",
    "attendance",
    "play_by_play_available",
    "notes",
    "status_name",
    "broadcast_market",
    "broadcast_name",
    "start_date",
    "game_date_time",
    "home_team_name",
    "home_team_logo",
    "home_team_abb",
    "home_team_id",
    "home_team_location",
    "home_team_full_name",
    "home_team_color",
    "home_score",
    "home_win",
    "home_record",
    "away_team_name",
    "away_team_logo",
    "away_team_abb",
    "away_team_id",
    "away_team_location",
    "away_team_full_name",
    "away_team_color",
    "away_score",
    "away_win",
    "away_record"
  )
  expect_equal(colnames(x), cols)
  expect_s3_class(x, "data.frame")

})