test_that(".RequestDataPortal fails if we don't provide a list", {
  # Will fail before any API calls
  request_body <- "https://data.nhm.ac.uk"
  expect_error(.RequestDataPortal(request_body))
})

test_that(".RequestRDSDataFrame fails if incomplete", {
  # Does not need API access - will fail before any API calls
  status_json <- list(status = "working")
  expect_error(.RequestRDSDataFrame(status_json))
})