tests/testthat/test-mlb_conferences.R

In baseballr: Acquiring and Analyzing Baseball Data

cols <- c(
  "conference_id", "conference_name", "link", 
  "conference_abbreviation", "has_wildcard", "conference_name_short", 
  "league_id", "league_link", "sport_id", "sport_link"
)

test_that("MLB Conferences", {
  skip_mlb_test()
  skip_on_cran()
  
  x <- mlb_conferences()
  
  expect_in(sort(cols), sort(colnames(x)))
  expect_s3_class(x, "data.frame")
})