tests/testthat/test-fox_wnba_teams.R

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

test_that(".fox_bb_teams parses a standings payload into a team directory", {
  skip_on_cran()
  raw <- jsonlite::fromJSON(
    testthat::test_path("fixtures", "fox_wnba_standings.json"),
    simplifyDataFrame = FALSE, simplifyVector = FALSE, simplifyMatrix = FALSE
  )
  df <- wehoop:::.fox_bb_teams(raw)
  expect_s3_class(df, "data.frame")
  expect_true(all(c("fox_team_id", "fox_team_name", "fox_section") %in% names(df)))
  expect_gt(nrow(df), 0)
  expect_false(any(duplicated(df$fox_team_id)))
  # fox_team_name must be the team name, not the rank number, and the full
  # (multi-word) name so it matches ESPN display names in the crosswalk.
  expect_false(any(grepl("^[0-9]+$", df$fox_team_name)))
  expect_true(any(grepl(" ", df$fox_team_name)))
})

test_that("fox_wnba_teams() returns a live directory", {
  skip_on_cran()
  skip_on_ci()
  skip_fox_test()
  df <- fox_wnba_teams()
  skip_if(nrow(df) == 0, "No rows returned from Fox WNBA teams at test time")
  expect_s3_class(df, "wehoop_data")
  expect_gte(nrow(df), 12)
})