tests/testthat/test-filter-by-area.R

In phildonovan/nzcensr: New Zealands census data

context("test-filter-by-area.R")

test_that("filter-by-area-expect-errors", {

  # Expect errors!
  expect_error(filter_by_census_area(dwelling_area_units, "area_units", "region", "Wellington"))

  x_dwelling_area_units <- dwelling_area_units %>% rename(test = Area_Code_and_Description)
  expect_error(filter_by_census_area(x_dwelling_area_units, "area_units", "regions", "Wellington"))
})

test_that("filter-by-area-check-northland", {
  northland_area_units <- filter_by_census_area(dwelling_area_units, "area_units", "regions", "northland")

  expect_equal(nrow(northland_area_units), 84)
})