gc() in tests to close connections

r-lib · Dec 20, 2018 · 2c343f0 · 2c343f0
1 parent 94f5d44
commit 2c343f0
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/tests/testthat/test-messages.R b/tests/testthat/test-messages.R
@@ -4,6 +4,7 @@ context("messages")
 test_that("messages in callr::r do not crash session", {
   ret <- r(function() { cliapp::cli_text("fooobar"); 1 + 1 })
   expect_identical(ret, 2)
+  gc()
 })
 
 test_that("messages in callr::r_bg do not crash session", {
@@ -13,4 +14,7 @@ test_that("messages in callr::r_bg do not crash session", {
   expect_equal(rx$get_exit_status(), 0)
 
   expect_equal(rx$get_result(), 2)
+  processx::processx_conn_close(rx$get_output_connection())
+  processx::processx_conn_close(rx$get_error_connection())
+  gc()
 })