tests/testthat/helper.R

In httr2: Perform HTTP Requests and Process the Responses

testthat::set_state_inspector(function() {
  list(
    connections = getAllConnections(),
    the_throttle = as.list(the$throttle)
  )
})

expect_redacted <- function(req, expected) {
  expect_equal(attr(req$headers, "redact"), expected)
}