tests/testthat/test-espn_wbb_scoreboard.R

In wehoop: Access Women's Basketball Play by Play Data

cols <- c(
  "matchup",
  "matchup_short",
  "season",
  "season_type",
  "season_slug",
  "game_id",
  "game_uid",
  "game_date",
  "attendance",
  "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"
  )

test_that("ESPN - WBB Scoreboard", {
  skip_on_cran()
  x <- espn_wbb_scoreboard(season = "20210215")
  expect_in(sort(cols), sort(colnames(x)))
  expect_s3_class(x, "data.frame")
})