do not expect returns when shutting down server

REditorSupport · Oct 28, 2020 · 8b3424a · 8b3424a
1 parent 0f38033
commit 8b3424a
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/tests/testthat/helper-utils.R b/tests/testthat/helper-utils.R
@@ -123,6 +123,10 @@ respond <- function(client, method, params, timeout, allow_error = FALSE,
     start_time <- Sys.time()
     remaining <- timeout
     client$deliver(client$request(method, params), callback = cb)
+    if (method == "shutdown") {
+        # do not expect the server returns anything
+        return(NULL)
+    }
     while (!isTRUE(storage$done)) {
         if (remaining < 0) {
             fail("timeout when obtaining response")