From: David Engster Date: Sun, 31 May 2015 10:11:48 +0000 (+0200) Subject: gnustest-nntp: Do not use `sleep-for' to wait for ping X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=1a592301725219d11ab1da593a5979b55a767d05;ds=sidebyside gnustest-nntp: Do not use `sleep-for' to wait for ping * tests/gnustest-nntp.el (gnustest-ping-host): Call 'sleep' binary instead of using `sleep-for', as the latter does not seem to reliably wait (see for instance bug 15990). --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6539a61c4..6e4dacaf2 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2015-05-31 David Engster + + * tests/gnustest-nntp.el (gnustest-ping-host): Call 'sleep' binary + instead of using `sleep-for', as the latter does not seem to reliably + wait (see for instance bug 15990). + 2015-05-29 Katsumi Yamaoka * gnus-art.el (gnus-button-alist): Re-revert last change. diff --git a/lisp/tests/gnustest-nntp.el b/lisp/tests/gnustest-nntp.el index 0dbd801e3..0d5cccb5f 100644 --- a/lisp/tests/gnustest-nntp.el +++ b/lisp/tests/gnustest-nntp.el @@ -42,7 +42,8 @@ (let* ((ping-program-options '("-c" "1")) (buf (ping host)) proc) - (sleep-for 0.5) + ;; sleep-for does not work correctly with async processes running + (call-process "sleep" nil nil nil "2") (with-current-buffer buf (accept-process-output (get-buffer-process (current-buffer)) 2) (goto-char (point-min))