tests/testthat/test_dep_sample_data.R

In deprivateR: Calculating and Analyzing Measures of Deprivation in the United States

# test errors ------------------------------------------------

test_that("incorrectly specified parameters trigger appropriate errors", {
  expect_error(dep_sample_data(),
               "index.*value must be provided")
  expect_error(dep_sample_data(index = "ham"),
               "Invalid.*index.*provided")
})

# test adi output ------------------------------------------------

test_that("adi creation executes correctly", {
  out_adi <- expect_error(
    dep_sample_data(index = "adi"), NA
  )

  expect_equal(class(out_adi), c("tbl_df", "tbl", "data.frame"))
  expect_equal(length(names(out_adi)), 281)
})