clean .quarto files

Author: cderv

tests/testthat/helpers.R

@@ -317,6 +317,21 @@ local_clean_state <- function(env = parent.frame()) {
   )
 }
 
+local_clean_dot_quarto <- function(where = ".", env = parent.frame()) {
+  skip_if_not_installed("withr")
+  skip_if_not_installed("fs")
+  withr::defer(
+    {
+      # clean up internal .quarto directory
+      dot_quarto <- fs::path(where, ".quarto")
+      if (fs::dir_exists(dot_quarto)) {
+        fs::dir_delete(dot_quarto)
+      }
+    },
+    envir = env
+  )
+}
+
 resources_path <- function(...) {
   test_path("resources", ...)
 }

tests/testthat/test-inspect.R

@@ -10,13 +10,17 @@ test_that("Documents can be inspected", {
 
 test_that("Quarto projects can be inspected", {
   skip_if_no_quarto()
-  metadata <- quarto_inspect(test_path("project"))
+  project_path <- test_path("project")
+  local_clean_dot_quarto(project_path)
+  metadata <- quarto_inspect(project_path)
   expect_type(metadata$config, "list")
 })
 
 test_that("Quarto projects can be inspected with profile", {
   skip_if_no_quarto()
-  metadata <- quarto_inspect(test_path("project"), "test")
+  project_path <- test_path("project")
+  local_clean_dot_quarto(project_path)
+  metadata <- quarto_inspect(project_path, "test")
   expect_type(metadata$config, "list")
   expect_identical(metadata$config$execute$echo, TRUE)
 })

tests/testthat/test-theme.R

@@ -18,17 +18,15 @@ resource_dir <- function(input) {
 
 local_render_theme_file <- function(input, env = parent.frame()) {
   skip_if_not_installed("withr")
+  skip_if_not_installed("fs")
+  local_clean_dot_quarto(where = dirname(input), env = env)
   withr::defer(
     {
       # clean up output resource directory
       out_dir <- resource_dir(input)
       if (fs::dir_exists(out_dir)) {
         fs::dir_delete(out_dir)
       }
-      # clean up internal .quarto directory
-      if (fs::dir_exists(".quarto")) {
-        fs::dir_delete(".quarto")
-      }
     },
     envir = env
   )