tests/testthat/test-fetch_pcons.R

In dfeR: Common Department for Education Analysis Tasks

test_that("fetch_locations gives a data frame", {
  expect_true(is.data.frame(fetch_pcons()))
})

test_that("fetch_locations have no duplicate rows", {
  expect_true(!anyDuplicated(fetch_pcons()))
})

# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# Snapshot tests to check numbers over time
test_that("number of locations stays consistent", {
  years <- c(2017:2025)
  countries <- c("All", "England", "Scotland", "Wales", "Northern Ireland")

  expect_snapshot(fetch_location_counts(fetch_pcons, years, countries))
})