tests/testthat/test-report.R

In poissonconsulting/batchr: Batch Process Files

test_that("batch_report all processed successfully", {
  path <- withr::local_tempdir()

  write.csv(data.frame(x = 1), file.path(path, "file1.csv"))

  expect_identical(
    batch_config(function(x) TRUE, path = path, regexp = "^file\\d[.]csv$"),
    "file1.csv"
  )

  skip_on_cran()
  skip_on_ci()
  verify_output(test_path("output/report1.txt"), batch_report(path))

  expect_identical(batch_run(path, ask = FALSE), c(file1.csv = TRUE))

  verify_output(test_path("output/report2.txt"), batch_report(path))
})