From 0bf31c2b3bc665054a1e99e941a25546560dda51 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Kirill=20M=C3=BCller?= <kirill@cynkra.com>
Date: Tue, 2 Jan 2024 21:24:13 +0100
Subject: [PATCH] Remove S4 class after test

---
 tests/testthat/test-rd-describe-in.R | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/tests/testthat/test-rd-describe-in.R b/tests/testthat/test-rd-describe-in.R
index 3fca03ec..540b336e 100644
--- a/tests/testthat/test-rd-describe-in.R
+++ b/tests/testthat/test-rd-describe-in.R
@@ -201,6 +201,7 @@ 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
       #'
@@ -214,6 +215,8 @@ 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')