tests/testthat/test-ha_coverage.R

In healthatlas: Explore and Import 'Metopio' Health Atlas Data and Spatial Layers

test_that("check specific topic coverage", {
  skip_if_offline(cha_url)
  skip_on_cran()

  ha_set(cha_url)

  "expect no progress bar"
  expect_snapshot(coverage <- ha_coverage("EDB", progress = FALSE))

  "expect a data.frame"
  expect_s3_class(coverage, "data.frame")

  "check table names"
  expect_equal(names(coverage), coverage_header)

  "check at least 1 row"
  expect_gt(nrow(coverage), 1)
})

test_that("check specific topic and layer coverage", {
  skip_if_offline(cha_url)
  skip_on_cran()

  ha_set(cha_url)

  "expect no progress bar"
  expect_snapshot(coverage <- ha_coverage("EDB", "neighborhood", progress = FALSE))

  "expect a data.frame"
  expect_s3_class(coverage, "data.frame")

  "check table names"
  expect_equal(names(coverage), coverage_header)

  "check at least 1 row"
  expect_gt(nrow(coverage), 1)
})

test_that("check keys only", {
  skip_if_offline(cha_url)
  skip_on_cran()

  ha_set(cha_url)

  "expect no progress bar"
  expect_snapshot(coverage <- ha_coverage("EDB", "neighborhood", keys_only = TRUE))

  "expect a data.frame"
  expect_s3_class(coverage, "data.frame")

  "check table names"
  expect_equal(names(coverage), coverage_header_keys_only)

  "check at least 1 row"
  expect_gt(nrow(coverage), 1)
})