tests/testthat/test-nhlrapi.R

In pbulsink/nhlRapi: R Interface to the NHL API

context("test-nhlrapi")

test_that("query queries", {
  q <- getStatAPI(query = "teams")
  expect_s3_class(q, 'nhl_api')
  expect_type(q$copyright, "character")
  expect_equal(Encoding(q$copyright), "UTF-8")
  expect_match(q$copyright, "NHL and the NHL Shield are registered trademarks of the National Hockey League. NHL and NHL team marks are the property of the NHL and its teams.")

  p <- utils::capture.output(print(q))
  expect_true(any(grepl('NHL teams', p)))
})

test_that("copyright works", {
  q <- getCopyright()
  expect_match(q, "NHL and the NHL Shield are registered trademarks of the National Hockey League. NHL and NHL team marks are the property of the NHL and its teams.")
})

test_that("failures catching work", {
  expect_message(expect_warning(q<-baseAPI('https://records.nhl.com/site/api/franchise/4', 'franchise')))
  expect_true(q$error)
})