tests/testthat/test-request_registry.R

In webmockr: Stubbing and Setting Expectations on 'HTTP' Requests

test_that("request_registry: structure", {
  request_registry_clear()

  expect_type(request_registry, "closure")
  expect_s3_class(request_registry(), "RequestRegistry")

  enable(quiet = TRUE)
  stub_request("get", hb("/get")) %>%
    to_return(body = "success!", status = 200)
  invisible(
    crul::HttpClient$new(url = hb())$get("get")
  )
  disable(quiet = TRUE)

  x <- request_registry()
  expect_s3_class(x, "RequestRegistry")
  expect_type(x$clone, "closure")
  expect_type(x$print, "closure")
  expect_type(x$register_request, "closure")
  expect_null(x$request)
  expect_s3_class(x$request_signatures, "HashCounter")
  expect_type(x$reset, "closure")

  expect_type(x$request_signatures$hash, "list")
  expect_match(names(x$request_signatures$hash), "GET")
  expect_type(x$request_signatures$hash[[1]]$count, "double")
})