migrate to reveal 3.2; add tests for all themes
diff --git a/tests/testthat/test_themes.R b/tests/testthat/test_themes.R
new file mode 100644
index 0000000..a3c3898
--- /dev/null
+++ b/tests/testthat/test_themes.R
@@ -0,0 +1,36 @@
+
+context("Themes")
+
+test_theme <- function(theme) {
+
+ test_that(paste(theme, "theme"), {
+
+ # don't run on cran because pandoc is required
+ skip_on_cran()
+
+ # work in a temp directory
+ dir <- tempfile()
+ dir.create(dir)
+ oldwd <- setwd(dir)
+ on.exit(setwd(oldwd), add = TRUE)
+
+ # create a draft of a presentation
+ testdoc <- "testdoc.Rmd"
+ rmarkdown::draft(testdoc,
+ system.file("rmarkdown", "templates", "revealjs_presentation",
+ package = "revealjs"),
+ create_dir = FALSE,
+ edit = FALSE)
+
+ # render it with the specified theme
+ capture.output({
+ output_file <- tempfile(fileext = ".html")
+ output_format <- revealjs_presentation(theme = theme)
+ rmarkdown::render(testdoc, output_file = output_file)
+ expect_true(file.exists(output_file))
+ })
+ })
+}
+
+# test all themes
+sapply(revealjs:::revealjs_themes(), test_theme)