tests/testthat/test-receptiviti_status.R

In receptiviti: Text Analysis Through the 'Receptiviti' API

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"
  )
})

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

test_that("http failures works", {
  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
  ))
})

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))
})