Turn waiting off and force longer wait for testing

R waited for ever for forcing a 5 minute wait
ropensci · Jan 20, 2022 · 6d2ee1a · 6d2ee1a
1 parent 9b6f57e
commit 6d2ee1a
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/tests/testthat/test_03_with_OTP.R b/tests/testthat/test_03_with_OTP.R
@@ -105,10 +105,10 @@ test_that("We can startup OTP", {
   expect_message(log <- otp_setup(otp = path_otp,
                                   dir = path_data,
                                   router = "default",
-                                  wait = FALSE),
+                                  wait = TRUE),
     regexp = "OTP is loading"
   )
-  Sys.sleep(60)
+  Sys.sleep(60 * 5)
 })
 
 context("Test the otp_connect function")
@@ -413,12 +413,12 @@ test_that("We can startup OTP with the analyst", {
   expect_message(log <- otp_setup(otp = path_otp,
                                   dir = path_data,
                                   router = "default",
-                                  wait = TRUE,
+                                  wait = FALSE,
                                   analyst = TRUE,
                                   pointsets = TRUE),
                  regexp = "OTP is loading"
   )
-  Sys.sleep(60)
+  Sys.sleep(60 * 5)
 })
 
 test_that("Can connect to OTP", {