tests/testthat/test-utils-ovc.R

In CatastRo: Interface to the Spanish 'Catastro' Web Services

test_that("ovc_base_url() and ovc_validate_srs() build valid requests", {
  expect_identical(
    ovc_base_url("OVCCallejero/ConsultaProvincia"),
    "http://ovc.catastro.meh.es/ovcservweb/OVCCallejero/ConsultaProvincia"
  )
  expect_identical(ovc_validate_srs(4326), "EPSG:4326")
})

test_that("ovc_get_xml() parses OVC XML responses", {
  seen <- NULL
  local_mocked_bindings(get_request_body = function(url, verbose = FALSE) {
    seen <<- list(url = url, verbose = verbose)

    httr2::response(
      status_code = 200,
      headers = list("content-type" = "application/xml"),
      body = charToRaw("<root><item><x>1</x></item></root>")
    )
  })

  parsed <- ovc_get_xml("http://example.test/ovc.xml", verbose = TRUE)
  expect_identical(seen$url, "http://example.test/ovc.xml")
  expect_true(seen$verbose)
  expect_identical(parsed$root$item$x[[1]], "1")
})

test_that("ovc_get_xml() returns NULL when XML requests fail", {
  seen <- NULL
  local_mocked_bindings(get_request_body = function(url, verbose = FALSE) {
    seen <<- list(url = url, verbose = verbose)
    NULL
  })

  expect_null(ovc_get_xml("http://example.test/empty.xml"))
  expect_identical(seen$url, "http://example.test/empty.xml")
  expect_false(seen$verbose)
})

test_that("ovc_get_tbl() converts XML nodes to tibbles", {
  expect_equal(
    ovc_as_tibble_row(list(a = "one", b = list(c = "two"))),
    tibble::tibble(a = "one", b.c = "two")
  )

  expect_equal(
    ovc_as_tibble_rows(list(
      list(a = "one", b = "two"),
      list(a = "three", b = "four")
    )),
    tibble::tibble(a = c("one", "three"), b = c("two", "four"))
  )
})

test_that("OVC error helpers detect and report API errors", {
  err <- list(lerr = list(code = "1", message = "Bad request"))

  expect_true(ovc_has_error(err))
  expect_false(ovc_has_error(list(ok = TRUE)))
  expect_snapshot(ovc_report_error(err))
})

test_that("OVC field helpers normalize response values", {
  expect_equal(
    ovc_ref_address(tibble::tibble(
      pc.pc1 = "1234567",
      pc.pc2 = "AB1234C",
      ldt = "Calle Falsa 123"
    )),
    tibble::tibble(refcat = "1234567AB1234C", address = "Calle Falsa 123")
  )

  coords <- ovc_numeric_coords(tibble::tibble(
    geo.xcen = "1.25",
    geo.ycen = "2.50",
    name = "parcel"
  ))

  expect_type(coords$geo.xcen, "double")
  expect_type(coords$geo.ycen, "double")
  expect_equal(coords$geo.xcen, 1.25)
  expect_equal(coords$geo.ycen, 2.50)
  expect_identical(coords$name, "parcel")
})