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)