Tweak test

Author: salim-b

tests/testthat/test-render.R

@@ -61,16 +61,26 @@ test_that("quarto_args in quarto_render", {
 })
 
 test_that("`quarto_render(as_job = TRUE)` is wrapable", {
-  skip_if(is.null(quarto_path()))
+  # this tests background jobs, a feature only available in interactive RStudio IDE sesssions
+  skip_on_cran()
+  skip_if_no_quarto()
   skip_if_not(rstudioapi::isAvailable())
-  skip_if_not_installed("rprojroot")
-  dir <- rprojroot::find_testthat_root_file()
-  input <- file.path(dir, "test.Rmd")
-  output <- file.path(dir, "test.html")
-  wrapper <- function(path) quarto_render(path, quiet = TRUE, as_job = TRUE)
-  wrapper(input)
+  qmd <- local_qmd_file(c("content"))
+  withr::local_dir(dirname(qmd))
+  output <- basename(
+    withr::local_file(xfun::with_ext(qmd, ".native"))
+  )
+  wrapper <- function(path, out, format) {
+    quarto_render(
+      input = path,
+      output_file = out,
+      output_format = format,
+      quiet = TRUE,
+      as_job = TRUE
+    )
+  }
+  wrapper(basename(qmd), output, "native")
   # wait for background job to finish (10s should be conservative enough)
   Sys.sleep(10)
   expect_true(file.exists(output))
-  unlink(output)
 })