diff --git a/tests/testthat/test-crew_monitor_local.R b/tests/testthat/test-crew_monitor_local.R index 4e3246c1..2f44a4bb 100644 --- a/tests/testthat/test-crew_monitor_local.R +++ b/tests/testthat/test-crew_monitor_local.R @@ -54,7 +54,10 @@ crew_test("monitor workers", { }) controller$start() controller$launch(n = 1L) - crew::crew_retry(~length(x$workers()) > first, seconds_interval = 0.01) + Sys.sleep(1) + crew::crew_retry(~length(x$workers()) > first, seconds_interval = 1) + Sys.sleep(1) expect_true(is.integer(x$workers())) + Sys.sleep(1) expect_true(length(x$workers()) > first) })