From 00fecec02fa5750f4fa9b067dc6596fb947bef83 Mon Sep 17 00:00:00 2001
From: Tomasz Kalinowski <tomasz@posit.co>
Date: Tue, 5 Nov 2024 08:18:32 -0500
Subject: [PATCH] use `utils::removeSource` instead of `rlang::zap_srcref`

---
 tests/testthat/test-method-dispatch.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tests/testthat/test-method-dispatch.R b/tests/testthat/test-method-dispatch.R
index be497a39..e88c58c4 100644
--- a/tests/testthat/test-method-dispatch.R
+++ b/tests/testthat/test-method-dispatch.R
@@ -233,7 +233,7 @@ test_that("errors from dispatched methods have reasonable tracebacks", {
     x <- sys.calls()
     x <- x[-length(x)] # remove get_call_stack()
     x <- tail(x, n)
-    lapply(x, rlang::zap_srcref)
+    lapply(x, utils::removeSource)
   }
 
   my_generic <- new_generic("my_generic", "x")