tests/testthat/test-get_scoreboards.R

In nhlscraper: Scraper for National Hockey League Data

test_that('get_scoreboards() returns non-empty tibble', {
  skip_if_offline()
  test <- get_scoreboards()
  expect_true(tibble::is_tibble(test) && nrow(test)>0)
})

test_that('get_scoreboards(\'1900-01-01\') returns empty tibble', {
  skip_if_offline()
  test <- get_scoreboards('1900-01-01')
  expect_true(tibble::is_tibble(test) && nrow(test)==0)
})

test_that('get_scoreboards(\'2025-1-1\') returns error', {
  skip_if_offline()
  expect_error(
    get_scoreboards('2025-1-1'),
    '`date` must be in \'YYYY-MM-DD\' format'
  )
})