tests/testthat/test-ovc-rccoor.R

In CatastRo: Interface to the API 'Sede Electronica Del Catastro'

test_that("Test offline", {
  skip_on_cran()
  skip_if_offline()

  local_mocked_bindings(is_online_fun = function(...) {
    FALSE
  })

  expect_snapshot(
    fend <- catr_ovc_get_rccoor(
      lat = 40.963200,
      lon = -5.671420,
      srs = 4326
    )
  )
  expect_null(fend)

  local_mocked_bindings(is_online_fun = function(...) {
    httr2::is_online()
  })
  expect_identical(is_online_fun(), httr2::is_online())
})

test_that("Test 404 all", {
  skip_on_cran()
  skip_if_offline()

  local_mocked_bindings(is_404 = function(...) {
    TRUE
  })

  expect_snapshot(
    fend <- catr_ovc_get_rccoor(
      lat = 40.963200,
      lon = -5.671420,
      srs = 4326
    )
  )
  expect_null(fend)

  local_mocked_bindings(is_404 = function(...) {
    FALSE
  })
})

test_that("Expect error on bad SRS", {
  skip_on_cran()
  skip_if_offline()

  expect_error(catr_ovc_get_rccoor(
    lat = 40.963200,
    lon = -5.671420,
    "abcd"
  ))
})

test_that("return data.frame given SRS", {
  skip_on_cran()
  skip_if_offline()

  result <- catr_ovc_get_rccoor(
    lat = 38.6196566583596,
    lon = -3.45624183836806,
    srs = "4230"
  )
  expect_s3_class(result, "tbl")
  expect_true(is.numeric(result$geo.xcen))
  expect_true(is.numeric(result$geo.ycen))
})

test_that("return data.frame without SRS", {
  skip_on_cran()
  skip_if_offline()

  result <- catr_ovc_get_rccoor(lat = 38.6196566583596, lon = -3.45624183836806)
  expect_s3_class(result, "tbl")
})

test_that("check fields without SRS", {
  skip_on_cran()
  skip_if_offline()

  result <- catr_ovc_get_rccoor(lat = 38.6196566583596, lon = -3.45624183836806)
  expect_true((is.character(result$address) & is.character(result$refcat)))
})

test_that("check fields given SRS", {
  skip_on_cran()
  skip_if_offline()

  result <- catr_ovc_get_rccoor(
    lat = 38.6196566583596,
    lon = -3.45624183836806,
    srs = "4230"
  )
  expect_true((is.character(result$address) & is.character(result$refcat)))
})

test_that("if data is know return NA", {
  skip_on_cran()
  skip_if_offline()

  result <- catr_ovc_get_rccoor(lat = 99999999, lon = -999999999)
  expect_true(ncol(result) == 3)
})

test_that("unprecised coordinates", {
  skip_on_cran()
  skip_if_offline()

  result <- catr_ovc_get_rccoor(
    lat = 40.963200,
    lon = -5.671420,
    srs = "4326"
  )
  expect_true(ncol(result) == 3)
})

test_that("Verbose", {
  skip_on_cran()
  skip_if_offline()

  expect_message(catr_ovc_get_rccoor(
    lat = 40.963200,
    lon = -5.671420,
    srs = "4326",
    verbose = TRUE
  ))
})