tests/testthat/test-cfb_conferences.R

In meysubb/cfbscrapR: A Scraping and Aggregating Interface to the CollegeFootballData API

context("CFB Conferences")

x <- cfb_conferences()

cols <- c("conference_id","name","long_name","abbreviation")

test_that("CFB Conferences", {
  expect_equal(nrow(x), 34)
  expect_equal(ncol(x), 4)
  expect_equal(colnames(x), cols)
  expect_error(cfb_conferences('SEC'))
  expect_s3_class(x, "data.frame")
})