tests/testthat/test-req-mock.R

In r-lib/httr2: Perform HTTP Requests and Process the Responses

test_that("can override requests through mocking", {
  resp <- response()
  req <- request("https://google.com")

  expect_equal(with_mocked_responses(~resp, req_perform(req)), resp)

  local_mocked_responses(function(req) resp)
  expect_equal(req_perform(req), resp)
})

test_that("can generate errors with mocking", {
  local_mocked_responses(~ response(404))

  req <- request("https://google.com")
  expect_error(req_perform(req), class = "httr2_http_404")
})

test_that("local_mock and with_mock are deprecated", {
  expect_snapshot(error = TRUE, {
    local_mock(~ response(404))
    . <- with_mock(NULL, ~ response(404))
  })
})

test_that("mocked_response_sequence returns responses then errors", {
  local_mocked_responses(list(
    response(200),
    response(201)
  ))

  req <- request("https://google.com")
  expect_equal(req_perform(req), response(200))
  expect_equal(req_perform(req), response(201))
  expect_error(req_perform(req), class = "httr2_http_503")
})

test_that("validates inputs", {
  expect_snapshot(error = TRUE, {
    local_mocked_responses(function(foo) {})
    local_mocked_responses(10)
  })
})