tests/testthat/test-opencage_check.R

In opencage: Interface to the OpenCage API

library("opencage")
context("opencage_check")
test_that("opencage_check returns error if wrong API",{
  skip_on_cran()
  expect_error(opencage_reverse(latitude = 0, longitude = 0,
                                key = "clearlynotakey"),
               "HTTP failure: 403")
})