tests/testthat/test-function-list_files_in_zip_files.R

test_that("list_files_in_zip_files() works", {

  f <- kwb.dwd:::list_files_in_zip_files

  expect_error(f())

  expect_warning(expect_error(
    f(c("no-such-file-1", "no-such-file-2"), dbg = FALSE)
  ))
})
KWB-R/kwb.dwd documentation built on Sept. 28, 2022, 6:03 p.m.