Add a test for tidyverse#405

jonthegeek · web-flow · commit e0fc23f1632a · 2025-08-20T12:34:17.000+01:00
This won't pass checks until tidyverse#445 is merged, but this particular new test passes and should prevent regressions of this particular use case.
diff --git a/tests/testthat/html/navigate1.html b/tests/testthat/html/navigate1.html
@@ -0,0 +1,8 @@
+<!DOCTYPE html>
+<html>
+<head>
+  <title>Navigate 1</title>
+</head>
+<body>
+  <a href="navigate2.html">Navigate to Page 2</a>
+</body>
diff --git a/tests/testthat/html/navigate2.html b/tests/testthat/html/navigate2.html
@@ -0,0 +1,8 @@
+<!DOCTYPE html>
+<html>
+<head>
+  <title>Navigate 2</title>
+</head>
+<body>
+  <p>Success!</p>
+</body>
diff --git a/tests/testthat/test-live.R b/tests/testthat/test-live.R
@@ -88,6 +88,13 @@ test_that("can press special keys",{
   expect_equal(html_text(html_element(sess, "#keyInfo")), "]/BracketRight")
 })
 
+test_that("can find elements after click that navigates", {
+  skip_if_no_chromote()
+
+  sess <- read_html_live(html_test_path("navigate1"))
+  sess$click("a")
+  expect_equal(html_text2(html_element(sess, "p")), "Success!")
+})
 
 # as_key_desc -------------------------------------------------------------
 
