tests/testthat/test-function-download_and_extract.R

In KWB-R/kwb.dwd: Access Information from Deutscher Wetterdienst (DWD)

test_that("download_and_extract() works", {

  f <- kwb.dwd:::download_and_extract

  capture.output(url <- kwb.dwd:::list_daily_grids_germany_tgz("evapo_p")[1L])

  capture.output(result <- f(url, quiet = TRUE))

  expect_type(result, "character")
  expect_true(all(sapply(result, file.exists)))
})