Moved defer down

OHDSI · Aug 22, 2023 · f4c2d61 · f4c2d61
1 parent 7ddeaa5
commit f4c2d61
Showing 1 changed file with 7 additions and 6 deletions.
diff --git a/tests/testthat/test-eunomia.R b/tests/testthat/test-eunomia.R
@@ -19,12 +19,6 @@ test_that("Check installation", {
 
 test_that("Multiple analyses", {
   outputFolder <- tempfile(pattern = "cmData")
-  withr::defer(
-    {
-      unlink(outputFolder, recursive = TRUE)
-    },
-    testthat::teardown_env()
-  )
 
   tcos1 <- createTargetComparatorOutcomes(
     targetId = 1,
@@ -301,6 +295,13 @@ test_that("Multiple analyses", {
       targetComparatorOutcomesList = targetComparatorOutcomesList <- list(tcos1, tcos2, "brokenObject")
     )
   })
+
+  withr::defer(
+    {
+      unlink(outputFolder, recursive = TRUE)
+    },
+    testthat::teardown_env()
+  )
 })