test_that("failures works", {
  expect_error(receptiviti_status(key = ""), "specify your key")
  expect_error(receptiviti_status(key = 123, secret = ""), "specify your secret")
  expect_error(receptiviti_status("localhost", key = 123, secret = 123), "url does not appear to be valid")
  expect_null(receptiviti_status("http://localhost:0/not_served", key = 123, secret = 123))
  invalid_message <- capture.output(
    receptiviti_status("example.com", key = 123, secret = 123),
    type = "message"
  )[2]
  skip_if(invalid_message == "Message: 500", "not checking real responses")
  expect_identical(invalid_message, "Message: 404")
  expect_true(grepl(
    "Message: 401 (1411): ",
    capture.output(receptiviti_status(key = 123, secret = 123), type = "message")[2],
    fixed = TRUE
  ))
})

skip_if(Sys.getenv("RECEPTIVITI_KEY") == "", "no API key")

test_that("success works", {
  message <- capture.output(receptiviti_status(include_headers = TRUE), type = "message")
  expect_identical(message[1], "Status: OK")
  expect_true(grepl("200", message[4], fixed = TRUE))
})