tests/testthat/test-goalie_edge_five_versus_five.R

In nhlscraper: Scraper for National Hockey League Data

# Tests ---------------------------------------------------------

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

# Run goalie edge five versus five tests.
testthat::test_that('goalie_edge_five_versus_five(0) returns message and empty list', {
  testthat::skip_if_offline()
  testthat::expect_message(
    test <- goalie_edge_five_versus_five(0),
    'Invalid argument\\(s\\); refer to help file\\.'
  )
  testthat::expect_true(is.list(test) && length(test) == 0)
})