tests/testthat/test-nhl_conferences.R

In benhowell71/fastRhockey: Functions to Access Professional Women's Hockey League and National Hockey League Play by Play Data

test_that("NHL - Get NHL conferences", {
  skip_on_cran()
  x <- nhl_conferences()

  cols <- c(
    "conference_id", "name", "link", "abbreviation", "short_name", "active"
  )
  expect_equal(colnames(x), cols)
  expect_s3_class(x, 'data.frame')

})