diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2026-05-13 10:45:38 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2026-05-13 11:10:15 -0400 |
| commit | ff96db93f23d17a1dcdc12aec4067007b5a4e18e (patch) | |
| tree | 1ed07312e54b7c918bd1e891cb74fb3f83ea4af7 /test | |
| parent | ce3098752cfb8cbb57c4f643088a2e6b16919ea7 (diff) | |
keyboard-tests.el: Try and fix the failure on EMBA
* test/src/keyboard-tests.el (keyboard-sigint-to-quit): Fix a small
race condition and avoid `sit-for` returning early.
Diffstat (limited to 'test')
| -rw-r--r-- | test/src/keyboard-tests.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/test/src/keyboard-tests.el b/test/src/keyboard-tests.el index e4a1bf36a63..b64b20fb6cb 100644 --- a/test/src/keyboard-tests.el +++ b/test/src/keyboard-tests.el @@ -92,11 +92,11 @@ `(,(expand-file-name invocation-name invocation-directory) "-Q" "--batch" "--eval" ,(prin1-to-string - `(progn (setq kill-emacs-on-sigint nil) - (message "Ready!") - (condition-case nil - (dotimes (_ 3) (sit-for 1)) - (quit (message "%s" ,exit-msg))))))))) + `(condition-case nil + (progn (setq kill-emacs-on-sigint nil) + (message "Ready!") + (sleep-for 3)) + (quit (message "%s" ,exit-msg)))))))) (while (progn (accept-process-output proc 1.0) (goto-char (point-min)) (not (re-search-forward "Ready!" nil t))) |