tests/testthat/test-census.R

In ropenscilabs/eechidna: Exploring Election and Census Highly Informative Data Nationally for Australia

# Census data frames
context("Check that all Census data frames have matching variable names and 150 divisions")

test_that("Census variable are the same", {
  expect_equal(sum(!names(abs2016) %in% names(abs2011)), 0)
  expect_equal(sum(!names(abs2016) %in% names(abs2006)), 0)
  expect_equal(sum(!names(abs2016) %in% names(abs2001)), 0)
})


test_that("2016 Census have correct number of divisions", {
  expect_equal(unique(length(abs2019$DivisionNm)), 151)
  expect_equal(unique(length(abs2016$DivisionNm)), 150)
  expect_equal(unique(length(abs2011$DivisionNm)), 150)
  expect_equal(unique(length(abs2006$DivisionNm)), 150)
  expect_equal(unique(length(abs2001$DivisionNm)), 150)
})