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)) expect_identical( capture.output(receptiviti_status("example.com", key = 123, secret = 123), type = "message")[2], "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)) })