tests/testthat/test-osmapiR_request.R

In osmapiR: 'OpenStreetMap' API

test_that("error handling works", {
  with_mock_dir("mock_error_responses", {
    ## Status only

    expect_error(
      osm_get_objects(osm_type = "relation", osm_id = 1),
      "410 Gone."
    )
    expect_error(
      osm_get_objects(osm_type = "way", osm_id = 1),
      "404 Not Found."
    )


    ## Message in the body (content-type: text/plain)

    expect_error(
      err <- osm_create_object(x = osmapi_objects(data.frame(type = "node")), changeset_id = 1),
      '400 Bad Request.+Cannot parse valid node from xml string <node changeset="1" lat="NULL" lon="NULL"/>. lat not a '
    )
    expect_error(
      err <- osm_create_object(x = osmapi_objects(data.frame(type = "way")), changeset_id = 1),
      "409 Conflict.+The user doesn't own that changeset"
    )


    ##  Message in the body (content-type: text/html)

    expect_error(
      err <- osmapi_request() |> httr2::req_url_path_append("err") |> httr2::req_perform(),
      "404 Not Found.+Couldn't find a file/directory/API operation by that name on the OpenStreetMap server "
    )
    # expect_error(osm_delete_gpx(1:2)) # may be fixed in the future by vectorizing api calls

    expect_error(
      err <- osmapi_request() |>
        httr2::req_url_path_append("nodes") |>
        httr2::req_url_query(nodes = paste(1:2000, collapse = ",")) |>
        httr2::req_perform(),
      "414 URI Too Long.+The requested URL's length exceeds the capacity\nlimit for this server."
    )
  })
})