aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorF. Jason Park2025-07-29 14:54:18 -0700
committerF. Jason Park2025-07-29 16:02:16 -0700
commitedd1f0512f4a057c19b7b26d811da574c025b02f (patch)
treec0684eb75d24e0e14c080be4e12b23867c2e0cf4
parent3797484608c5bba2057d819215e6ce4d48cacf94 (diff)
downloademacs-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.el5
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)