test: wrap known warning from {desc} into expect_warning()

r-lib · Oct 7, 2024 · 569fba1 · 569fba1
1 parent 0cb9d38
commit 569fba1
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/tests/testthat/test-build-home-index.R b/tests/testthat/test-build-home-index.R
@@ -156,7 +156,10 @@ test_that("cran_unquote works", {
 
 test_that("allow email in BugReports", {
   # currently desc throws a warning if BugReports is an email
-  pkg <- local_pkgdown_site(desc = list(BugReports = "[email protected]"))
+  expect_warning(
+    pkg <- local_pkgdown_site(desc = list(BugReports = "[email protected]")),
+    "must be a http"
+  )
   html <- xml2::read_html(data_home_sidebar(pkg))
   expect_snapshot(xpath_xml(html, ".//li/a"))
 })