Fix test

tests/testthat/test-exercise.R

@@ -223,22 +223,21 @@ test_that("serialized exercises produce equivalent evaluate_exercise() results",
 
 test_that("filter_dependencies() excludes non-list knit_meta objects", {
   ex <- mock_exercise(
-    user_code = deparse(quote(
-      htmltools::tagList(
-        htmltools::tags$head(htmltools::tags$style(".leaflet-container {backround:#FFF}")),
-        html_dependency_jquery()
-      )
-    ))
+    user_code =
+      "htmltools::tagList(
+        htmltools::tags$head(htmltools::tags$style(\".leaflet-container {backround:#FFF}\")),
+        idb_html_dependency()
+      )"
   )
 
-  ex_res <- expect_silent(render_exercise(ex, new.env()))
+  ex_res <- expect_silent(withr::with_tempdir(render_exercise(ex, new.env())))
 
   ex_res_html_deps <- htmltools::htmlDependencies(ex_res$html_output)
   # The head(style) dependency is dropped because it's not from a package
   expect_equal(length(ex_res_html_deps), 1L)
   # But we keep the dependency that came from a pkg
   expect_equal(
     ex_res_html_deps[[1]],
-    html_dependency_jquery()
+    idb_html_dependency()
   )
 })