tests/testthat/test-test-get_status.R

In ropenscilabs/ropenaq: Accesses Air Quality Data from the Open Data Platform OpenAQ

test_that("get_status works as expected", {

  # when all is well
  use_cassette("status", {
    output <- get_status()
  })

  expect_equal(output, "green")

  # when not all is well
  webmockr::enable()
  stub <- webmockr::stub_request("get", status_url())
  webmockr::to_return(stub, status = 429)
  expect_equal(get_status(), "red")
  webmockr::disable()
})