diff options
| author | F. Jason Park | 2025-07-29 14:54:18 -0700 |
|---|---|---|
| committer | F. Jason Park | 2025-07-29 16:02:16 -0700 |
| commit | edd1f0512f4a057c19b7b26d811da574c025b02f (patch) | |
| tree | c0684eb75d24e0e14c080be4e12b23867c2e0cf4 | |
| parent | 3797484608c5bba2057d819215e6ce4d48cacf94 (diff) | |
| download | emacs-edd1f0512f4a057c19b7b26d811da574c025b02f.tar.gz emacs-edd1f0512f4a057c19b7b26d811da574c025b02f.zip | |
; Adjust sleep-for in erc-autojoin-channels tests
* test/lisp/erc/erc-join-tests.el
(erc-join-tests--autojoin-channels-ident): A `sleep-for' value of 0.01
caused associated tests to fail on at least one setup involving Solaris
10. The new value is arbitrary and possibly temporary, pending further
investigation. (Bug#79017)
| -rw-r--r-- | test/lisp/erc/erc-join-tests.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/test/lisp/erc/erc-join-tests.el b/test/lisp/erc/erc-join-tests.el index c97c60912bd..ea3623bfce9 100644 --- a/test/lisp/erc/erc-join-tests.el +++ b/test/lisp/erc/erc-join-tests.el | |||
| @@ -86,8 +86,7 @@ | |||
| 86 | (with-timeout (5 (ert-fail "Timeout exceeded")) | 86 | (with-timeout (5 (ert-fail "Timeout exceeded")) |
| 87 | 87 | ||
| 88 | (cl-letf* ((erc-autojoin-timing 'ident) | 88 | (cl-letf* ((erc-autojoin-timing 'ident) |
| 89 | (erc-autojoin-delay 0.001) | 89 | (erc-autojoin-delay 0.0625) |
| 90 | (timer-list (copy-sequence timer-list)) | ||
| 91 | (calls nil) | 90 | (calls nil) |
| 92 | (check (lambda () (prog1 calls (setq calls nil)))) | 91 | (check (lambda () (prog1 calls (setq calls nil)))) |
| 93 | ((symbol-function 'erc-server-send) | 92 | ((symbol-function 'erc-server-send) |
| @@ -99,7 +98,7 @@ | |||
| 99 | 98 | ||
| 100 | (erc-autojoin-channels erc-server-announced-name "tester") | 99 | (erc-autojoin-channels erc-server-announced-name "tester") |
| 101 | (should erc--autojoin-timer) | 100 | (should erc--autojoin-timer) |
| 102 | (sleep-for 0.01) | 101 | (sleep-for 0.25) |
| 103 | (funcall test check) | 102 | (funcall test check) |
| 104 | 103 | ||
| 105 | (should-not calls) | 104 | (should-not calls) |