ci may need more time (macOS on GHA really slow)

mschubert · Oct 19, 2023 · 3dfd951 · 3dfd951
1 parent 5be0d01
commit 3dfd951
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git a/tests/testthat/test-2-worker.r b/tests/testthat/test-2-worker.r
@@ -118,7 +118,7 @@ test_that("worker R API", {
 #    addr = m$listen("inproc://endpoint") # mailbox.cpp assertion error
 
     p = parallel::mcparallel(worker(addr))
-    expect_null(m$recv(500L))
+    expect_null(m$recv(1000L))
     m$send(expression(5 + 1))
     res = m$recv(500L)
     expect_equal(res[[1]], 6)
@@ -139,7 +139,7 @@ test_that("communication with two workers", {
     w1 = parallel::mcparallel(worker(addr))
     w2 = parallel::mcparallel(worker(addr))
 
-    expect_null(m$recv(500L)) # worker 1 up
+    expect_null(m$recv(1000L)) # worker 1 up
     m$send(expression({ Sys.sleep(0.5); 5 + 2 }))
     expect_null(m$recv(500L)) # worker 2 up
     m$send(expression({ Sys.sleep(0.5); 3 + 1 }))

diff --git a/tests/testthat/test-7-ssh_proxy.r b/tests/testthat/test-7-ssh_proxy.r
@@ -59,8 +59,8 @@ test_that("using the proxy without pool and forward", {
     addr = m$listen("tcp://127.0.0.1:*")
     p = parallel::mcparallel(ssh_proxy(sub(".*:", "", addr)))
 
-    m$proxy_submit_cmd(list(n_jobs=1), 500L)
-    expect_null(m$recv(500L)) # worker 1 up
+    m$proxy_submit_cmd(list(n_jobs=1), 1000L)
+    expect_null(m$recv(1000L)) # worker 1 up
     m$send(5 + 2)
     expect_equal(m$recv(500L), 7) # collect results
 
@@ -81,8 +81,8 @@ test_that("using the proxy without pool and forward, 2 workers", {
     addr = m$listen("tcp://127.0.0.1:*")
     p = parallel::mcparallel(ssh_proxy(sub(".*:", "", addr)))
 
-    m$proxy_submit_cmd(list(n_jobs=2), 500L)
-    expect_null(m$recv(500L)) # worker 1 up
+    m$proxy_submit_cmd(list(n_jobs=2), 1000L)
+    expect_null(m$recv(1000L)) # worker 1 up
     m$send({ Sys.sleep(0.5); 5 + 2 })
     expect_null(m$recv(500L)) # worker 2 up
     m$send({ Sys.sleep(0.5); 3 + 1 })