tests/testthat/test-decomp_cw.R

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

test_that("hud_cw_zip_tract() Simple Example and Error", {
  skip_if_no_key()
  res <- hud_cw_zip_tract(zip = "35213", year = c("2010"), quarter = c("1"))
  expect_true(nrow(res) == 9)

  expect_error(hud_cw_zip_tract(zip = "3521334",
                                year = c("2010"), quarter = c("1")))
  expect_error(hud_cw_zip_tract(zip = c("3521334", "32133"),
                                year = c("2010"), quarter = c("1")))

  res <- hud_cw_zip_tract(zip = "35213", year = c("2010"),
                          quarter = c("1"), minimal = TRUE)
  expect_true(is.vector(res) && length(res) == 9)
})

test_that("hud_cw_zip_county() Simple Example and Error", {
  skip_if_no_key()
  res <- hud_cw_zip_county(zip = 35213, year = c("2020"), quarter = c("2"))
  expect_true(nrow(res) == 1)

  expect_error(hud_cw_zip_county(zip = "3521334",
                                 year = c("2010"), quarter = c("1")))
  expect_error(hud_cw_zip_county(zip = c("3521334", "32133"),
                                 year = c("2010"), quarter = c("1")))

  res <- hud_cw_zip_county(zip = "35213", year = c("2010"),
                           quarter = c("1"), minimal = TRUE)
  expect_true(is.vector(res) && length(res) == 1)
})

test_that("hud_cw_zip_cbsa() Simple Example and Error", {
  skip_if_no_key()
  res <- hud_cw_zip_cbsa(zip = 35213, year = c("2020"), quarter = c("2"))
  expect_true(nrow(res) == 1)

  expect_error(hud_cw_zip_cbsa(zip = "3521334",
                               year = c("2010"), quarter = c("1")))
  expect_error(hud_cw_zip_cbsa(zip = c("3521334", "32133"),
                               year = c("2010"), quarter = c("1")))

  res <- hud_cw_zip_cbsa(zip = "35213", year = c("2010"),
                         quarter = c("1"), minimal = TRUE)
  expect_true(is.vector(res) && length(res) == 1)
})

test_that("hud_cw_zip_cbsadiv() Simple Example and Error", {
  skip_if_no_key()
  res <- hud_cw_zip_cbsadiv(zip = 22031, year = c("2020"), quarter = c("2"))
  expect_true(nrow(res) == 1)

  expect_error(hud_cw_zip_cbsadiv(zip = "3521334",
                                  year = c("2010"), quarter = c("1")))
  expect_error(hud_cw_zip_cbsadiv(zip = c("3521334", "32133"),
                                  year = c("2010"), quarter = c("1")))

  res <- hud_cw_zip_cbsadiv(zip = "22031", year = c("2020"),
                            quarter = c("2"), minimal = TRUE)
  expect_true(is.vector(res) && length(res) == 1)
})

test_that("hud_cw_zip_cd() Simple Example and Error", {
  skip_if_no_key()
  res <- hud_cw_zip_cd(zip = 35213, year = c("2020"), quarter = c("2"))
  expect_true(nrow(res) == 2)

  expect_error(hud_cw_zip_cd(zip = "3521334", year = c("2010"),
                             quarter = c("1")))
  expect_error(hud_cw_zip_cd(zip = c("3521334", "32133"),
                             year = c("2010"), quarter = c("1")))

  res <- hud_cw_zip_cd(zip = "35213", year = c("2010"),
                       quarter = c("1"), minimal = TRUE)
  expect_true(is.vector(res) && length(res) == 8)
})


test_that("hud_cw_tract_zip() Simple Example and Error", {
  skip_if_no_key()

  res <- hud_cw_tract_zip(tract = 48201223100, year = c("2017"),
                          quarter = c("1"))

  expect_true(nrow(res) == 2)

  expect_error(hud_cw_tract_zip(tract = "4820122310033",
                                year = c("2010"), quarter = c("1")))
  expect_error(hud_cw_tract_zip(tract = c("35", "3213333"),
                                year = c("2010"), quarter = c("1")))

  res <- hud_cw_tract_zip(tract = "48201223100", year = c("2010"),
                          quarter = c("1"), minimal = TRUE)
  expect_true(is.vector(res) && length(res) == 2)
})


test_that("hud_cw_county_zip() Simple Example and Error", {
  skip_if_no_key()

  res <- hud_cw_county_zip(county = "22031", year = c("2010"), quarter = c("1"))
  expect_true(nrow(res) == 10)

  expect_error(hud_cw_county_zip(county = "3521334",
                                 year = c("2010"), quarter = c("1")))
  expect_error(hud_cw_county_zip(county = c("3521334", "32133"),
                                 year = c("2010"), quarter = c("1")))

  res <- hud_cw_county_zip(county = "22031", year = c("2010"),
                           quarter = c("1"), minimal = TRUE)
  expect_true(is.vector(res) && length(res) == 10)

  all_md_counties <- hud_state_counties("md")
  all_md <- hud_cw_county_zip(county = substr(all_md_counties$fips_code, 1, 5),
                              year = c("2010"), quarter = c("1"))
  expect_true(is_valid_rhud_df(all_md))
})


test_that("hud_cw_cbsa_zip() Simple Example and Error", {
  skip_if_no_key()

  res <- hud_cw_cbsa_zip(cbsa = "10140", year = c("2017"), quarter = c("2"))
  expect_true(nrow(res) == 22)

  expect_error(hud_cw_cbsa_zip(cbsa = "3521334",
                               year = c("2010"), quarter = c("1")))
  expect_error(hud_cw_cbsa_zip(cbsa = c("3521334", "32133"),
                               year = c("2010"), quarter = c("1")))

  res <- hud_cw_cbsa_zip(cbsa = "10140", year = c("2010"),
                         quarter = c("1"), minimal = TRUE)
  expect_true(is.vector(res) && length(res) == 21)
})

test_that("hud_cw_cbsadiv_zip() Simple Example and Error", {
  skip_if_no_key()

  res <- hud_cw_cbsadiv_zip(cbsadiv = 10380, year = c("2017"), quarter = c("4"))
  expect_true(nrow(res) >= 15)

  expect_error(hud_cw_cbsadiv_zip(cbsadiv = "3521334",
                                  year = c("2010"), quarter = c("1")))
  expect_error(hud_cw_cbsadiv_zip(cbsadiv = c("3521334", "32133"),
                                  year = c("2010"), quarter = c("1")))

  res <- hud_cw_cbsadiv_zip(cbsadiv = "10380", year = c("2017"),
                            quarter = c("4"), minimal = TRUE)
  expect_true(is.vector(res) && length(res) == 15)
})

test_that("hud_cw_cd_zip() Simple Example and Error", {
  skip_if_no_key()

  res <- hud_cw_cd_zip(cd = "2202", year = c("2010"), quarter = c("4"))
  expect_true(nrow(res) >= 36)

  expect_error(hud_cw_cd_zip(cd = "3521334", year = c("2010"),
                             quarter = c("1")))
  expect_error(hud_cw_cd_zip(cd = c("3521334", "32133"),
                             year = c("2010"), quarter = c("1")))

  res <- hud_cw_cd_zip(cd = "2202", year = c("2010"),
                       quarter = c("1"), minimal = TRUE)
  expect_true(is.vector(res) && length(res) >= 144)
})

test_that("hud_cw_zip_countysub() Simple Example and Error", {
  skip_if_no_key()

  res <- hud_cw_zip_countysub(zip = "35213", year = c("2019"), quarter = c("2"))
  expect_true(nrow(res) == 1)

  expect_error(hud_cw_zip_countysub(zip = "3521334",
                                    year = c("2010"), quarter = c("1")))
  expect_error(hud_cw_zip_countysub(zip = c("3521334", "32133"),
                                    year = c("2010"), quarter = c("1")))

  res <- hud_cw_zip_countysub(zip = "35213", year = c("2019"),
                              quarter = c("1"), minimal = TRUE)
  expect_true(is.vector(res) && length(res) == 1)
})

test_that("hud_cw_countysub_zip() Simple Example and Error", {

  skip_if_no_key()

  res <- hud_cw_countysub_zip(countysub = "4606720300 ",
                              year = c("2019", "2019", "2019"),
                              quarter = c("4", "4"))

  expect_true(nrow(res) == 1)

  expect_error(hud_cw_countysub_zip(countysub = "3521334",
                                    year = c("2010"), quarter = c("1")))
  expect_error(hud_cw_countysub_zip(countysub = c("3521334", "32133"),
                                    year = c("2010"), quarter = c("1")))

  res <- hud_cw_countysub_zip(countysub = "4606720300 ", year = c("2019"),
                              quarter = c("1"), minimal = TRUE)
  expect_true(is.vector(res) && length(res) == 1)
})