adapt test for easier debugging

Author: cderv

tests/testit/test-formats.R

@@ -10,8 +10,7 @@ test_format <- function(name, output_options = NULL, skip = NULL) {
   # work in a temp directory
   dir <- tempfile()
   dir.create(dir)
-  oldwd <- setwd(dir)
-  on.exit(setwd(oldwd), add = TRUE)
+  withr::local_dir(dir)
 
   # create a draft of the format
   testdoc <- paste0(name, "_article", ".Rmd")
@@ -24,7 +23,7 @@ test_format <- function(name, output_options = NULL, skip = NULL) {
     "Rendering the ", name, " format...",
     if (!is.null(output_options)) " (with output options)"
   )
-  output_file <- rmarkdown::render(testdoc, output_options = output_options, quiet = TRUE)
+  output_file <- rmarkdown::render(testdoc, output_options = output_options, quiet = !interactive())
   assert(paste(name, "format works"), {
     file.exists(output_file)
   })