tests/testthat/test-misc.R

In etam4260/rhud: A R interface for accessing HUD (US Department of Housing and Urban Development) APIs

test_that("hud_state_minor_civil_divisions() State Queries and Error", {
  skip_if_no_key()

  mcd <- hud_state_minor_civil_divisions("CA")
  expect_true(nrow(mcd) >= 1)

  mcd <- hud_state_minor_civil_divisions("Alabama")
  expect_true(nrow(mcd) >= 1)

  mcd <- hud_state_minor_civil_divisions("6")
  expect_true(nrow(mcd) >= 1)

  expect_warning(hud_state_minor_civil_divisions("CA", "qdqdwq"))
})

test_that("hud_state_places() State Queries and Error", {
  skip_if_no_key()

  cities <- hud_state_places("NY")
  expect_true(nrow(cities) >= 1)

  cities <- hud_state_places("Texas")
  expect_true(nrow(cities) >= 1)

  cities <- hud_state_places("8")
  expect_true(nrow(cities) >= 1)

  expect_warning(hud_state_places("CA", "qdqdwq"))
})

test_that("hud_nation_state_territories() Simple Examples and Error", {
  skip_if_no_key()

  states <- hud_nation_states_territories()
  expect_true(nrow(states) >= 1)
  expect_warning(hud_nation_states_territories("qdqdwq"))
})

test_that("hud_state_counties() Simple Examples and Error", {
  skip_if_no_key()

  counties <- hud_state_counties("MD")
  expect_true(nrow(counties) >= 1)

  counties <- hud_state_counties("Michigan")
  expect_true(nrow(counties) >= 1)

  counties <- hud_state_counties(5)
  expect_true(nrow(counties) >= 1)

  expect_warning(hud_state_counties("CA", "qdqdwq"))
})

test_that("hud_state_metropolitan() Simple Examples and Error", {
  skip_if_no_key()

  # According to HUD small areas include metropolitan areas.
  # Query for specify states
  metro <- hud_state_metropolitan("CA")
  expect_true(nrow(metro) >= 1)

  metro <- hud_state_metropolitan("1")
  expect_true(nrow(metro) >= 1)

  metro <- hud_state_metropolitan("Ohio")
  expect_true(nrow(metro) >= 1)
  expect_error(hud_state_metropolitan("qdqdwq"))
})