tests/testthat/test-pointDTM100_download.R

In rgugik: Search and Retrieve Spatial Data from 'GUGiK'

skip_on_cran()


tmp = tempfile()
status = pointDTM100_download("opolskie", outdir = tmp, unzip = FALSE) # 3.7 MB

# status should be NULL (successfully downloaded), otherwise return NULL
if (!is.null(status)) {
  return(NULL)
}

file_path = list.files(tmp, full.names = TRUE)
file_ext = substr(file_path, nchar(file_path) - 2, nchar(file_path))

test_that("check file ext", {
  expect_true(file_ext == "zip")
})


# test stops
test_that("check stops", {
  expect_error(pointDTM100_download(voivodeships = NULL), "enter names or TERC")
  expect_error(pointDTM100_download(voivodeships = "0"), "invalid names or TERC")
})