tests/testthat/test-cfb_game_records.R

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

context("CFB Game Records")

x <- cfb_game_records(2018, team = 'Notre Dame')

y <- cfb_game_records(2013, team = "Florida State")

cols <- c("year","team","conference", "division", 
          "total_games","total_wins", "total_losses","total_ties",
          "conference_games", "conference_wins", "conference_losses", "conference_ties", 
          "home_games","home_wins", "home_losses","home_ties",
          "away_games", "away_wins", "away_losses","away_ties")

test_that("CFB Game Records", {
  expect_equal(colnames(x), cols)
  expect_equal(colnames(y), cols)
  expect_s3_class(x, "data.frame")
  expect_s3_class(y, "data.frame")
})