tests/testthat/test_http_error.R

In pamelarussell/TCIApathfinder: Client for the Cancer Imaging Archive REST API

message("\nTesting handling of HTTP errors")

test_that("Error for invalid endpoint", {
  skip_on_cran()
  response <- get_response("/fakeEndpoint", query = list(format = "json", api_key = get_api_key()))
  expect_error(process_json_response(response), "\\[404\\]: [a-zA-Z0-9:/.]+fakeEndpoint")
})