Test (and fix) theme errors

R/theme.R

@@ -131,10 +131,7 @@ check_theme <- function(theme,
    }
    config_abort(
      error_pkg,
-     c(
-       "{.field error_path} uses theme {.val {theme}}",
-       i = "Valid themes are: {.val highlight_styles()}"
-     ),
+     "{.field {error_path}} uses theme {.val {theme}}",
      call = error_call
    )
 }

tests/testthat/_snaps/theme.md

@@ -0,0 +1,21 @@
+# validations yaml specification
+
+    Code
+      build_bslib_(template = list(theme = 1, bootstrap = 5))
+    Condition
+      Error in `bs_theme_rules()`:
+      ! template.theme must be a string, not the number 1.
+      i Edit _pkgdown.yml to fix the problem.
+    Code
+      build_bslib_(template = list(theme = "fruit", bootstrap = 5))
+    Condition
+      Error in `build_bslib_()`:
+      ! template.theme uses theme "fruit"
+      i Edit _pkgdown.yml to fix the problem.
+    Code
+      build_bslib_(template = list(`theme-dark` = "fruit", bootstrap = 5))
+    Condition
+      Error in `build_bslib_()`:
+      ! template.theme-dark uses theme "fruit"
+      i Edit _pkgdown.yml to fix the problem.
+

tests/testthat/test-theme.R

@@ -0,0 +1,12 @@
+test_that("validations yaml specification", {
+  build_bslib_ <- function(...) {
+    pkg <- local_pkgdown_site(meta = list(...))
+    build_bslib(pkg)
+  }
+
+  expect_snapshot(error = TRUE, {
+    build_bslib_(template = list(theme = 1, bootstrap = 5))
+    build_bslib_(template = list(theme = "fruit", bootstrap = 5))
+    build_bslib_(template = list(`theme-dark` = "fruit", bootstrap = 5))
+  })
+})