Fix order in test

Author: salim-b

tests/testthat/test-render.R

@@ -21,9 +21,9 @@ test_that("`quarto_render(as_job = TRUE)` is wrapable", {
   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)
   # wait for background job to finish (10s should be conservative enough)
   Sys.sleep(10)
-  wrapper(input)
   expect_true(file.exists(output))
   unlink(output)
 })