tests/testthat/test-files.R

context("files")

fname <- paste(sample(unlist(strsplit("somecrazyfile", ""))), collapse = "")
test_that("file not found is friendly", {
  expect_error(expect_warning(tidync(fname)), "No such file or directory")
})

Try the tidync package in your browser

Any scripts or data that you put into this service are public.

tidync documentation built on Oct. 29, 2022, 1:15 a.m.