tests/testthat/test-oauth2.R

test_that("oauth_request works", {
  req <- httr2::request(get_osmapi_url())
  req_oauth <- oauth_request(req = req)

  without_internet({
    expect_GET(httr2::req_perform(req_oauth))
  })
})

Try the osmapiR package in your browser

Any scripts or data that you put into this service are public.

osmapiR documentation built on April 15, 2025, 9:06 a.m.