recv after process may take >0ms, eg. CRAN debian

mschubert · Sep 29, 2023 · 7069bed · 7069bed
1 parent 4ff59dc
commit 7069bed
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/tests/testthat/test-7-ssh_proxy.r b/tests/testthat/test-7-ssh_proxy.r
@@ -14,12 +14,12 @@ test_that("simple forwarding works", {
     p$connect(addr1, 500L)
     w$connect(addr2, 500L)
     expect_true(p$process_one())
-    expect_null(m$recv(0L)) # worker up
+    expect_null(m$recv(500L)) # worker up
     m$send(5 + 2)
     expect_true(p$process_one())
     expect_true(w$process_one())
     expect_true(p$process_one())
-    result = m$recv(0L)
+    result = m$recv(500L)
     expect_equal(result, 7)
 
     w$close()