tests/testthat/test-powell_wiley.R

In ndi: Neighborhood Deprivation Indices

context('powell_wiley')

# --------------------- #
# powell_wiley testthat #
# --------------------- #

test_that('powell_wiley throws error with invalid arguments', {
  # Not a data.frame or tibble for `df`
  expect_error(powell_wiley(df = c('a', 'b', 'c')))
  
  # Unavailable geography
  expect_error(
    powell_wiley(
      geo = 'zcta',
      state = 'DC',
      year = 2020,
      quiet = TRUE
    )
  )
  
  # Unavailable year
  expect_error(
    powell_wiley(
      state = 'DC',
      year = 2005,
      quiet = TRUE
    )
  )
  
  skip_if(Sys.getenv('CENSUS_API_KEY') == '')
  
  # Incorrect state
  expect_error(
    powell_wiley(
      state = 'AB',
      year = 2020,
      quiet = TRUE
    )
  )
  
  # Unavailable geography for DC (only 1 'county' in DC so, alone, NDI cannot be computed)
  expect_error(
    powell_wiley(
      geo = 'county',
      state = 'DC',
      year = 2009,
      quiet = TRUE
    )
  )
  
})

test_that('powell_wiley works', {
  expect_message(powell_wiley(df = DCtracts2020[,-c(3:10)]))
  
  skip_if(Sys.getenv('CENSUS_API_KEY') == '')
  
  expect_message(
    powell_wiley(
      state = 'DC', 
      year = 2020
    )
  )
  
  expect_message(
    powell_wiley(
      state = 'DC',
      year = 2020,
      round_output = TRUE
    )
  )
  
  expect_message(
    powell_wiley(
      state = 'DC',
      year = 2020,
      imp = TRUE
    )
  )
  
  expect_silent(
    powell_wiley(
      state = 'DC',
      year = 2020,
      quiet = TRUE
    )
  )
  
  expect_silent(
    powell_wiley(
      state = 'DC',
      year = 2020,
      imp = TRUE,
      quiet = TRUE
    )
  )
  
})