tests/testthat/test-data-areas.R

In mrc-ide/naomi: Naomi Model for Subnational HIV Estimates

test_that("spread_areas() works", {
  ## TODO: Where is demo_areas?
  ## expect_error(spread_areas(demo_areas, -4))
  ## expect_error(spread_areas(demo_areas, 7))
  ## expect_equal(nrow(spread_areas(demo_areas)), 32L)
  ## expect_equal(nrow(spread_areas(demo_areas, min_level = 1, max_level = 3)), 28L)
})