tests/testthat/test-req-auth.R

test_that("can send username/password", {
  user <- "u"
  password <- "p"
  req1 <- request_test("/basic-auth/:user/:password")
  req2 <- req1 %>% req_auth_basic(user, password)
  expect_redacted(req2, "Authorization")

  expect_error(req_perform(req1), class = "httr2_http_401")
  expect_error(req_perform(req2), NA)
})

test_that("can send bearer token", {
  req <- req_auth_bearer_token(request_test(), "abc")
  expect_equal(
    req$headers,
    new_headers(list(Authorization = "Bearer abc"), "Authorization")
  )
})
r-lib/httr2 documentation built on June 1, 2025, 1:53 p.m.