tests/testthat/test-regions.R

In MartinHoldrege/turnr: Normalization of Test Utilization Rate

# tests of region function(s)

context("regions")


# cdc region --------------------------------------------------------------

testthat::test_that("hhs region is", {
    testthat::expect_equal(unname(cdc_region(c("WA", "NY"))), c("10", "2"))
})


# census region -----------------------------------------------------------


# census_region--spot check
testthat::test_that("census region is", {
    testthat::expect_equal(unname(census_region(c("NY","CO", "MN", "AL",  "DC"))),
                           c("Northeast","West", "Midwest", "South", "South"))
})