[elpa] externals/urgrep 56acdfe434 087/115: Improve how we wait for urgrep to finish in tests

[ELPA Syncer]

branch: externals/urgrep
commit 56acdfe4343d466b889f197c15ba214d3f03c09d
Author: Jim Porter <jporterbugs@gmail.com>
Commit: Jim Porter <jporterbugs@gmail.com>

    Improve how we wait for urgrep to finish in tests
---
 urgrep-tests.el | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/urgrep-tests.el b/urgrep-tests.el
index b9460c643d..3b83a6c770 100644
--- a/urgrep-tests.el
+++ b/urgrep-tests.el
@@ -523,7 +523,8 @@
                (local-variable-p 'urgrep-current-tool)))
   (should (and (equal urgrep-current-query '("urgrep"))
                (local-variable-p 'urgrep-current-query)))
-  (sit-for 1)
+  (while (get-buffer-process (current-buffer))
+    (sit-for 0.01))
   (goto-char (point-min))
   (re-search-forward "urgrep-tests.el")
   (beginning-of-line 2)
@@ -535,7 +536,8 @@
                (local-variable-p 'urgrep-current-tool)))
   (should (and (equal urgrep-current-query '("urgrep" :group nil))
                (local-variable-p 'urgrep-current-query)))
-  (sit-for 1)
+  (while (get-buffer-process (current-buffer))
+    (sit-for 0.01))
   (goto-char (point-min))
   (re-search-forward "urgrep-tests.el:")
   (urgrep-tests--check-match-at-point))
@@ -546,7 +548,8 @@
                (local-variable-p 'urgrep-current-tool)))
   (should (and (equal urgrep-current-query (urgrep-command "urgrep"))
                (local-variable-p 'urgrep-current-query)))
-  (sit-for 1)
+  (while (get-buffer-process (current-buffer))
+    (sit-for 0.01))
   (goto-char (point-min))
   (re-search-forward "urgrep-tests.el")
   (beginning-of-line 2)