tests/testthat/test-stub_request.R

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

context("stub_request")

stub_registry()$remove_all_request_stubs()

test_that("no stubs exist before stub_request called", {
  expect_equal(length(stub_registry()$request_stubs), 0)
})

aa <- stub_request("get", "https://httpbin.org/get")

test_that("stub_request bits are correct", {

  expect_is(aa, "StubbedRequest")
  expect_null(aa$body)
  expect_null(aa$host)
  expect_null(aa$query)
  expect_null(aa$request_headers)
  expect_null(aa$response)
  expect_null(aa$response_headers)
  expect_null(aa$responses_sequences)

  expect_is(aa$method, "character")
  expect_equal(aa$method, "get")
  expect_is(aa$uri, "character")
  expect_equal(aa$uri, "https://httpbin.org/get")

  expect_is(aa$print, "function")
  expect_output(aa$print(), "<webmockr stub>")

  expect_is(aa$to_return, "function")
  expect_error(aa$to_return(), "argument \"body\" is missing")

  expect_is(aa$to_s, "function")
  expect_equal(aa$to_s(), "GET: https://httpbin.org/get")

  expect_is(aa$with, "function")
  expect_null(aa$with())

  expect_is(aa$uri_parts, "list")
})

test_that("stubs exist after stub_request called", {
  expect_equal(length(stub_registry()$request_stubs), 1)
})

test_that("stub_request fails well", {
  expect_error(stub_request(), "one of uri or uri_regex is required")
  expect_error(stub_request(method = "stuff", "adf"),
               "'arg' should be one of")
})