standardize file names

rstudio · Sep 12, 2024 · ca668cd · ca668cd
1 parent 5689761
commit ca668cd
Show file tree

Hide file tree

Showing 3 changed files with 16 additions and 16 deletions.
diff --git a/tests/manual_tests/test-quarto-render.R b/tests/manual_tests/test-quarto-render.R
diff --git a/tests/manual_tests/test_quarto_render.R b/tests/manual_tests/test_quarto_render.R
@@ -0,0 +1,16 @@
+# Ensure that rendering reports in Quarto do not produce `data-qmd` attributes
+# since the reports are not *data* tables
+
+quarto::quarto_render("tests/manual_tests/test_quarto_render.qmd")
+stopifnot(file.exists("tests/manual_tests/test_quarto_render.html"))
+utils::browseURL("tests/manual_tests/test_quarto_render.html")
+
+test_qmd <- xml2::read_html("tests/manual_tests/test_quarto_render.html")
+
+data_qmd_divs <- xml2::xml_find_all(test_qmd, "//div[@data-qmd]")
+data_qmd_divs
+
+stopifnot(length(data_qmd_divs) == 0)
+
+unlink("tests/manual_tests/test_quarto_render.html")
+unlink("tests/manual_tests/test_quarto_render_files/*", recursive = TRUE)
diff --git a/tests/manual_tests/test-quarto-render.qmd → tests/manual_tests/test_quarto_render.qmd b/tests/manual_tests/test-quarto-render.qmd → tests/manual_tests/test_quarto_render.qmd