tests/testthat/test-error-handling.R

In USGS-R/scipiper: Support functions for ushering data through a scientific workflow

context("Update build files even after errors")
test_that("Build files are still updated after errors",{
  dirinfo <- setup_tasks_demo()
  file.remove(list.files('build/status'))
  file.remove(list.files(pattern = ".ind"))
  expect_error(scmake("test_fail"))
  build_files <- list.files('build/status')
  expect_equal(length(build_files), 4)
  cleanup_tasks_demo(dirinfo)
})