tests/testthat/test-per_capita_household_size.R

In njtierney/conmat: Builds Contact Matrices using GAMs and Population Data

test_that("refactored code works", {
  expect_identical(
    get_abs_per_capita_household_size_state("NSW"),
    get_abs_per_capita_household_size("NSW")
  )
})

test_that("refactored code works with lga", {
  expect_identical(
    get_abs_per_capita_household_size_lga(unique(abs_lga_lookup$lga)[1]),
    get_abs_per_capita_household_size(lga = unique(abs_lga_lookup$lga)[1])
  )
})


test_that("errors when given incorrect state", {
  expect_error(get_abs_per_capita_household_size_state("NSA"))
})


test_that("errors when given incorrect lga", {
  expect_error(get_abs_per_capita_household_size_lga("Fairfield"))
})