testing: with gc()

insightsengineering · Nov 7, 2024 · 598989f · 598989f
1 parent 3cde969
commit 598989f
Showing 1 changed file with 10 additions and 4 deletions.
diff --git a/tests/testthat/helper-TealAppDriver.R b/tests/testthat/helper-TealAppDriver.R
@@ -28,8 +28,14 @@ ns_des_input <- function(id, dataname, type) {
   sprintf("%s-dataset_%s_singleextract-%s", id, dataname, type)
 }
 
-app_driver_stop <- function(app_driver) {
-  app_driver_stop(app_driver)
-  app_driver$get_chromote_session()$parent$close()
-  app_driver$get_chromote_session()$close()
+app_driver_stop <- function(app_driver, envir = parent.frame()) {
+  withr::defer(
+    {
+      app_driver_stop(app_driver)
+      app_driver$get_chromote_session()$parent$close()
+      app_driver$get_chromote_session()$close()
+      gc()
+    },
+    envir = envir
+  )
 }