make sure the sub-process exits

Author: lbartnik

tests/testthat/test-subprocess.R

@@ -17,7 +17,7 @@ test_that("a subprocess can be spawned and killed", {
   expect_true(process_exists(handle))
 
   process_kill(handle)
-  process_wait(handle, 1000)
+  expect_equal(process_poll(handle, TIMEOUT_INFINITE), "terminated")
   expect_false(process_exists(handle))
 })
 

tests/testthat/test-termination.R

@@ -35,6 +35,7 @@ test_that("child process is terminated in Windows", {
 
   # ... and not after we kill the parent
   process_kill(parent_handle)
+  expect_equal(process_poll(parent_handle, TIMEOUT_INFINITE), "terminated")
   expect_false(process_exists(parent_handle))
   expect_false(process_exists(child_id))
 })
@@ -75,6 +76,7 @@ test_that("child process is terminated in Linux", {
 
   # ... and not after we kill the parent
   process_kill(parent_handle)
+  expect_equal(process_poll(parent_handle, TIMEOUT_INFINITE), "terminated")
   expect_false(process_exists(parent_handle))
   expect_false(process_exists(child_id))
 })