tests/testthat/test-async_request.R

In hereR: 'sf'-Based Interface to the 'HERE' REST APIs

test_that("async_request works", {
  set_verbose(TRUE)
  response <- hereR:::.async_request(url = "https://jsonplaceholder.typicode.com/posts")
  expect_is(response, "list")
  expect_is(response[[1]], "character")
})