r-lib · hadley · Apr 20, 2026
diff --git a/tests/testthat/_snaps/find-s7.md b/tests/testthat/_snaps/find-s7.md
@@ -6,6 +6,7 @@
       \itemize{
         \item \code{\link[=uni-character-method]{character}}
         \item \code{integer}
+        \item \code{\link[=uni-testS7-foo-method]{testS7::foo}}
       }
 
 # S7 multi-dispatch methods_list output

diff --git a/tests/testthat/test-find-s7.R b/tests/testthat/test-find-s7.R
@@ -1,9 +1,12 @@
 test_that("methods_find finds S7 methods", {
   local_load_all("testS7")
   result <- methods_find("uni")
-  expect_equal(result$class, c("character", "integer"))
-  expect_equal(result$package, rep("testS7", 2))
-  expect_equal(result$topic, c("uni-character-method", "uni"))
+  expect_equal(result$class, c("character", "integer", "testS7::foo"))
+  expect_equal(result$package, rep("testS7", 3))
+  expect_equal(
+    result$topic,
+    c("uni-character-method", "uni", "uni-testS7-foo-method")
+  )
 })
 
 test_that("methods_find finds S7 multi-dispatch methods", {

diff --git a/tests/testthat/testS7/NAMESPACE b/tests/testthat/testS7/NAMESPACE
@@ -1,4 +1,5 @@
 # Generated by roxygen2: do not edit by hand
 
+export(foo)
 export(multi)
 export(uni)
diff --git a/tests/testthat/testS7/R/uni.R b/tests/testthat/testS7/R/uni.R
@@ -9,3 +9,10 @@ S7::method(uni, S7::class_integer) <- function(x, ...) x
 
 #' S7 character method
 S7::method(uni, S7::class_character) <- function(x, ...) x
+
+#' An S7 class
+#' @export
+foo <- S7::new_class("foo", package = "testS7")
+
+#' S7 foo method
+S7::method(uni, foo) <- function(x, ...) x
diff --git a/tests/testthat/testS7/man/foo.Rd b/tests/testthat/testS7/man/foo.Rd
diff --git a/tests/testthat/testS7/man/uni-testS7-foo-method.Rd b/tests/testthat/testS7/man/uni-testS7-foo-method.Rd