tests/testthat/test-cfb_team_matchup_records.R

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

context("CFB Team Matchup Records")

x <- cfb_team_matchup_records('Texas','Oklahoma')

y <- cfb_team_matchup_records('Texas A&M','TCU', min_year = 1975)

cols <- c('start_year', 'end_year', 'team1', 'team1_wins',   'team2', 'team2_wins', 'ties')

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