tests/testthat/test-collect_run_ndr.R

test_that("collect_run_ndr works", {
  unlink("workspace_temp", recursive = TRUE)
  collect_run_ndr(ndr_testdata_args(), symlink = FALSE)
  # dir("workspace_temp")
  testthat::expect_gt(length(dir("workspace_temp")), 8)
})
jsta/rinvest documentation built on March 17, 2023, 6:15 a.m.