diff --git a/tests/testthat/test-tag-query.R b/tests/testthat/test-tag-query.R
index d0f482ed..d2941453 100644
--- a/tests/testthat/test-tag-query.R
+++ b/tests/testthat/test-tag-query.R
@@ -120,11 +120,12 @@ test_that("tagQuery()$find()", {
 
   # Make sure the found elements do not persist
   newX <- x$find("span")
-  expect_failure(
+  expect_condition(
     expect_equal_tags(
       x$selectedTags(),
       newX$selectedTags()
-    )
+    ),
+    class = "expectation_failure"
   )
 
   x <- x$find("span")