tests/testthat/test-fetch_las.R

In dfeR: Common Department for Education Analysis Tasks

test_that("Gives a data frame", {
  expect_true(is.data.frame(fetch_las()))
})

test_that("Has no duplicate rows", {
  expect_true(!anyDuplicated(fetch_las()))
})

# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# These tests will fail if there are genuine changes to the locations
# Counts of locations done manually from the data screener repo lookup we had
#
# Did this kind of thing against the screener lookup file to get the numbers
# Make a new column for in_2022 with =AND(2022 >= $A2, 2022 <= $B2)
# Filter to TRUE values only and remove duplcates

test_that("2024 locations match what we expect", {
  expect_equal(nrow(fetch_las(2024)), 218)
  expect_equal(nrow(fetch_las(2024, c("England", "Scotland", "Wales"))), 207)
  expect_equal(nrow(fetch_las(2024, "England")), 153)
  expect_equal(nrow(fetch_las(2024, "Scotland")), 32)
  expect_equal(nrow(fetch_las(2024, "Wales")), 22)
  expect_equal(nrow(fetch_las(2024, "Northern Ireland")), 11)
})

# Checking an extra year so we know the year filtering works for past years
test_that("2022 locations match what we expect", {
  expect_equal(nrow(fetch_las(2022)), 217)
  expect_equal(nrow(fetch_las(2022, c("England", "Scotland", "Wales"))), 206)
  expect_equal(nrow(fetch_las(2022, "England")), 152)
  expect_equal(nrow(fetch_las(2022, "Scotland")), 32)
  expect_equal(nrow(fetch_las(2022, "Wales")), 22)
  expect_equal(nrow(fetch_las(2022, "Northern Ireland")), 11)
})

# Checking the first year so we know the year filtering works
test_that("2017 locations match what we expect", {
  expect_equal(nrow(fetch_las(2017)), 217)
  expect_equal(nrow(fetch_las(2017, c("England", "Scotland", "Wales"))), 206)
  expect_equal(nrow(fetch_las(2017, "England")), 152)
  expect_equal(nrow(fetch_las(2017, "Scotland")), 32)
  expect_equal(nrow(fetch_las(2017, "Wales")), 22)
  expect_equal(nrow(fetch_las(2017, "Northern Ireland")), 11)
})