tests/testthat/test-function-open_description.R

test_that("open_description() works", {

  f <- kwb.dwd:::open_description

  expect_error(f())

  expect_output(result <- f(kwb.dwd:::ftp_path_daily_grids("evapo_p")))
  expect_null(result)
})
KWB-R/kwb.dwd documentation built on Sept. 28, 2022, 6:03 p.m.