tests/testthat/test-scores.R

In fflr: Retrieve ESPN Fantasy Football Data

test_that("scores by matchup period", {
  s <- tidy_scores(
    leagueId = "42654852",
    leagueHistory = FALSE,
    useMatchup = TRUE
  )
  expect_length(unique(s$matchupPeriodId), 17)
})

test_that("scores by scoring period", {
  s <- tidy_scores(
    leagueId = "42654852",
    leagueHistory = FALSE,
    useMatchup = FALSE
  )
  expect_equal(length(unique(s$scoringPeriodId)), nrow(s)/4)
})

test_that("scores by past league history", {
  s <- tidy_scores(
    leagueId = "42654852",
    leagueHistory = TRUE,
    useMatchup = TRUE
  )
  expect_type(s, "list")
  expect_length(unique(s[[1]]$matchupPeriodId), 17)
})