Use testthat 3
diff --git a/tests/testthat/test_themes.R b/tests/testthat/test_themes.R
index 63a3f2e..d217d06 100644
--- a/tests/testthat/test_themes.R
+++ b/tests/testthat/test_themes.R
@@ -1,10 +1,5 @@
-
-context("Themes")
-
test_theme <- function(theme) {
-
test_that(paste(theme, "theme"), {
-
# don't run on cran because pandoc is required
skip_on_cran()
@@ -28,7 +23,8 @@
output_format <- revealjs_presentation(theme = theme)
rmarkdown::render(testdoc,
output_format = output_format,
- output_file = output_file)
+ output_file = output_file,
+ quiet = TRUE)
expect_true(file.exists(output_file))
})
})