tests/testthat/test-get_teams.R

In ncaavolleyballr: Extract Data from NCAA Women's and Men's Volleyball Website

test_that("get_teams() errors trigger correctly", {
  # Test year parameter validation
  expect_error(get_teams(), "Enter valid year between 2020-")
  expect_error(get_teams(year = NULL), "Enter valid year between 2020-")
  expect_error(get_teams(year = "2024"), "Enter valid year between 2020-")
  expect_error(get_teams(year = TRUE), "Enter valid year between 2020-")
  expect_error(get_teams(year = 1999), "Enter valid year between 2020-")
  expect_error(get_teams(year = 2030), "Enter valid year between 2020-")
  expect_error(
    get_teams(year = c(2019, 2024)),
    "Enter valid year between 2020-"
  )

  # Test division parameter validation
  expect_error(get_teams(year = 2024, division = NULL), "Enter valid division")
  expect_error(get_teams(year = 2024, division = 0), "Enter valid division")
  expect_error(get_teams(year = 2024, division = 4), "Enter valid division")
  expect_error(
    get_teams(year = 2024, division = c(1, 2)),
    "Enter single value for division"
  )

  # Test sport parameter validation
  expect_error(get_teams(year = 2024, sport = NULL), "Enter valid `sport`")
  expect_error(
    get_teams(year = 2024, sport = 123),
    "Enter valid sport as a three-letter character string"
  )
  expect_error(
    get_teams(year = 2024, sport = TRUE),
    "Enter valid sport as a three-letter character string"
  )
  expect_error(
    get_teams(year = 2024, sport = "volleyball"),
    "Enter valid sport code from `ncaa_sports`"
  )
  expect_error(
    get_teams(year = 2024, sport = "XXX"),
    "Enter valid sport code from `ncaa_sports`"
  )
  expect_error(
    get_teams(year = 2024, sport = "wvb"),
    "Enter valid sport code from `ncaa_sports`"
  )
  expect_error(
    get_teams(year = 2024, sport = c("WVB", "MVB")),
    "Enter single value for `sport`"
  )
})