Update regex check for img to account for potentional role attribute

rstudio · Mar 21, 2024 · 86eefbd · 86eefbd
1 parent 233db49
commit 86eefbd
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/testthat/test-zzzz-include.R b/tests/testthat/test-zzzz-include.R
@@ -27,7 +27,7 @@ test_that("Includes work", {
 
     res <- PlumberResponse$new()
     val <- r$route(make_req("GET", "/rmd"), res)
-    expect_match(val$body, "<html.*<img src=\"data:image/png;base64.*</html>\\s*$")
+    expect_match(val$body, "<html.*<img (role=\"img\" )?src=\"data:image/png;base64.*</html>\\s*$")
     expect_equal(val$headers$`Content-Type`, "text/html; charset=UTF-8")
   }
 })