tests/testthat/test-request_make.R

In r-pkgs/gargle: Utilities for Working with Google APIs

test_that("request_make() errors for invalid HTTP methods", {
  expect_snapshot(
    request_make(list(method = httr::GET)),
    error = TRUE
  )
  expect_snapshot(
    request_make(list(method = "PETCH")),
    error = TRUE
  )
})