tests/testthat/test-cfb_venues.R

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

context("CFB Venues")

x <- cfb_venues()

cols <- c("venue_id","name","capacity","grass","city","state",
          "zip","country_code","location","elevation","year_constructed",
          "dome","timezone")

test_that("CFB Venues", {
  expect_equal(nrow(x), 335)
  expect_equal(ncol(x), 13)
  expect_equal(colnames(x), cols)
  expect_s3_class(x, "data.frame")
})