tests/testthat/test-get_espn_coach_career.R

In nhlscraper: Scraper for National Hockey League Data

test_that('get_espn_coach_career() returns non-empty list', {
  skip_if_offline()
  test <- get_espn_coach_career()
  expect_true(is.list(test) && length(test)>0)
})

test_that('get_espn_coach_career(0) returns empty list', {
  skip_if_offline()
  test <- get_espn_coach_career(0)
  expect_true(is.list(test) && length(test)==0)
})