tests/testthat/test-us_counties.R

In USAboundaries: Historical and Contemporary Boundaries of the United States of America

test_that("No date returns current counties", {
  skip_if_not_installed("USAboundariesData")
  expect_identical(
    us_counties(),
    USAboundariesData::counties_contemporary_lores
  )
})

test_that("Dates outside the valid range have an error message", {
  skip_if_not_installed("USAboundariesData")
  expect_error(us_counties("1600-02-03"))
  expect_error(us_counties("2015-06-17"))
})

test_that("Current states can be filtered", {
  skip_if_not_installed("USAboundariesData")
  expect_equal(nrow(us_counties(states = c("Virginia"))), 133)
})

test_that("Historical states can be filtered", {
  skip_if_not_installed("USAboundariesData")
  expect_equal(nrow(us_counties("1855-01-02", states = c("OH"))), 88)
})

test_that("Correct resolution shapefiles are returned", {
  skip_if_not_installed("USAboundariesData")
  expect_identical(
    us_counties(resolution = "low"),
    USAboundariesData::counties_contemporary_lores
  )
  expect_identical(
    us_counties(resolution = "high"),
    USAboundariesData::counties_contemporary_hires
  )
})