tests/testthat/test-utils.R

In ropensci/fingertipsR: Fingertips Data for Public Health

test_that("Unavailable endpoint gives error message", {
        skip_if_offline()
        expect_error(area_types(path = "junk"),
                     "The API is currently unavailable")
        })

test_that("Unavailable endpoint gives error message - real url", {
  skip_if_offline()
  expect_error(area_types(path = "httpstat.us/500"),
               "The API is currently unavailable")
})

test_that("col_types must be passed to get_fingertips_api when content_type is 'parsed'", {
  skip_if_offline()
  expect_error(
    get_fingertips_api(
      api_path = "https://fingertips.phe.org.uk/api/indicator_metadata/csv/by_indicator_id?indicator_ids=10101",
      content_type = "parsed"
    ),
    "With content_type == 'text', col_types must be provided")
})


test_that("API availability when proxy settings are removed", {
  skip_if_offline()
  expect_true(
    fingertips_ensure_api_available(proxy_settings = "none"),
    info = "when proxy_settings = `none` the function works as expected"
  )

  expect_equal(
    ncol(
      get_fingertips_api(
        api_path = "https://fingertips.phe.org.uk/api/area_types/parent_area_types",
        proxy_settings = "none"
        )),
    7,
    info = "get_fingertips_api works with proxy_settings equal to `none`"
  )
})