tests/testthat/test-scrape_nhl_pbp.r

In EFastner/icescrapR: A package for scraping and summarizing PbP Data from NHL.com

testthat::test_that("Known bad HTML data comes back null", {
  testthat::expect_null(
    suppressWarnings(
    parse_nhl_html_events(get_nhl_html_events('2008020259'))
    ))
  testthat::expect_warning(
    parse_nhl_html_events(get_nhl_html_events('2008020259'))
    , regexp = "HTML Game Data Not Available"
    )
})