tests/testthat/test_cbs.R

In almartin82/mlbids: Tools for standardizing MLB player metadata

context("cbs")

test_that("cbs bulk gets current players", {

  r <- cbs_bulk()
  expect_is(r, 'data.frame')
})


test_that("cbs scrape returns one player correctly", {

  p <- cbs(1894641)
  expect_is(p, 'data.frame')

  p <- cbs(1894642)
  expect_is(p, 'data.frame')

})


test_that("cbs scrape errors on known bad player", {
  expect_error(cbs(1894653))
})