tests/testthat/test-player_game_log.R

In nhlscraper: Scraper for National Hockey League Data

test_that(
  'player_game_log(8478402, 20242025, 3) returns non-empty data.frame', {
  skip_if_offline()
  test <- player_game_log(8478402, 20242025, 3)
  expect_true(is.data.frame(test) && nrow(test) > 0)
  }
)

test_that('player_game_log(0) returns message and empty data.frame', {
  skip_if_offline()
  expect_message(
    test <- player_game_log(0),
    'Invalid argument\\(s\\); refer to help file\\.'
  )
  expect_true(is.data.frame(test) && nrow(test) == 0)
})