tests/testthat/test-espn_wnba_athletes_index.R

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

test_that("ESPN WNBA Athletes Index", {
  skip_on_cran()
  skip_on_ci()
  skip_espn_test()

  # Use limit = 50 so the test is fast
  x <- espn_wnba_athletes_index(season = 2024, limit = 50)

  if (is.null(x) || !is.data.frame(x) || nrow(x) == 0) {
    skip("No rows returned from espn_wnba_athletes_index at test time")
  }

  cols_x <- c(
    "athlete_id", "full_name", "jersey", "position",
    "team_id", "headshot", "status", "link"
  )

  expect_in(sort(cols_x), sort(colnames(x)))
  expect_s3_class(x, "data.frame")
  expect_lte(nrow(x), 50L)

  Sys.sleep(1)
})