diff --git a/tests/testthat/test-revealjs_presentation.R b/tests/testthat/test-revealjs_presentation.R
index ade1c9a..85ad022 100644
--- a/tests/testthat/test-revealjs_presentation.R
+++ b/tests/testthat/test-revealjs_presentation.R
@@ -18,3 +18,45 @@
     "TOC"
   )
 })
+
+test_that("chapter_numbering option controls the numbering script", {
+  skip_if_not_pandoc()
+  rmd <- local_temp_rmd_file(
+    "---",
+    "title: 'Chapter numbering test'",
+    "output: revealjs.ids::revealjs_presentation",
+    "---",
+    "",
+    "# One",
+    "",
+    "## a",
+    "",
+    "# Two"
+  )
+  on <- paste(.render_and_read(rmd, xml = FALSE), collapse = "\n")
+  expect_match(on, "function numberChapters", fixed = TRUE)
+  expect_match(on, "var start = 1;", fixed = TRUE)
+
+  off <- paste(.render_and_read(
+    rmd,
+    output_options = list(chapter_numbering = FALSE),
+    xml = FALSE
+  ), collapse = "\n")
+  expect_no_match(off, "function numberChapters", fixed = TRUE)
+
+  started <- paste(.render_and_read(
+    rmd,
+    output_options = list(chapter_numbering = 5),
+    xml = FALSE
+  ), collapse = "\n")
+  expect_match(started, "var start = 5;", fixed = TRUE)
+
+  expect_error(
+    .render_and_read(
+      rmd,
+      output_options = list(chapter_numbering = "yes"),
+      xml = FALSE
+    ),
+    "chapter_numbering"
+  )
+})