tests/testthat/test-load_mbb_crosswalk.R

In hoopR: Access Men's Basketball Play by Play Data

test_that("load_mbb_team_crosswalk() loads a cached snapshot", {
  skip_on_cran()
  if (Sys.getenv("HOOPR_LOAD_TESTS") != "1") skip("load_* crosswalk tests require published release artifacts")

  out <- load_mbb_team_crosswalk(seasons = most_recent_mbb_season())
  expect_s3_class(out, "hoopR_data")
  expect_true(all(c("season", "espn_team_id") %in% names(out)))
})

test_that("load_mbb_schedule_crosswalk() loads a cached snapshot", {
  skip_on_cran()
  if (Sys.getenv("HOOPR_LOAD_TESTS") != "1") skip("load_* crosswalk tests require published release artifacts")

  out <- load_mbb_schedule_crosswalk(seasons = most_recent_mbb_season())
  expect_s3_class(out, "hoopR_data")
  expect_true("season" %in% names(out))
})

test_that("load_mbb_player_crosswalk() loads a cached snapshot", {
  skip_on_cran()
  if (Sys.getenv("HOOPR_LOAD_TESTS") != "1") skip("load_* crosswalk tests require published release artifacts")

  out <- load_mbb_player_crosswalk(seasons = most_recent_mbb_season())
  expect_s3_class(out, "hoopR_data")
  expect_true("season" %in% names(out))
})