Remove S4 class after test (#1566)

r-lib · Jan 3, 2024 · 2b7955a · 2b7955a
1 parent 1382f7d
commit 2b7955a
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/tests/testthat/test-rd-describe-in.R b/tests/testthat/test-rd-describe-in.R
@@ -201,10 +201,11 @@ test_that("infix and replacement names get nice label", {
 })
 
 test_that("s4 methods get nice label", {
+  withr::defer(removeClass("foo1"))
   out <- roc_proc_text(rd_roclet(), "
       #' Class
       #'
-      setClass('foo1', slots = c(id = 'character'))
+      setClass('foo1', slots = c(id = 'character'), where = .GlobalEnv)
 
       #' @describeIn foo1 generic
       setGeneric('m_id', function(x) standardGeneric('m_id'))
@@ -214,9 +215,11 @@ test_that("s4 methods get nice label", {
     ")[[1]]
   expect_snapshot(out$get_section("minidesc"))
 
+  withr::defer(removeClass("foo2"))
+  withr::defer(removeClass("foo3"))
   out <- roc_proc_text(rd_roclet(), "
-    setClass('foo2')
-    setClass('foo3')
+    setClass('foo2', where = .GlobalEnv)
+    setClass('foo3', where = .GlobalEnv)
 
     #' bar1
     setGeneric('bar1', function(x, y) standardGeneric('bar1'))