projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
gnustest-nntp: Do not use `sleep-for' to wait for ping
[gnus]
/
lisp
/
tests
/
gnustest-nntp.el
diff --git
a/lisp/tests/gnustest-nntp.el
b/lisp/tests/gnustest-nntp.el
index
5838efe
..
0d5cccb
100644
(file)
--- a/
lisp/tests/gnustest-nntp.el
+++ b/
lisp/tests/gnustest-nntp.el
@@
-1,5
+1,5
@@
;;; gnustest-nntp.el --- Simple NNTP testing for Gnus
;;; gnustest-nntp.el --- Simple NNTP testing for Gnus
-;; Copyright (C) 2011 Free Software Foundation, Inc.
+;; Copyright (C) 2011
-2015
Free Software Foundation, Inc.
;; Author: David Engster <dengste@eml.cc>
;; Author: David Engster <dengste@eml.cc>
@@
-16,9
+16,7
@@
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
-;; Boston, MA 02110-1301, USA.
+;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;; Commentary:
@@
-44,7
+42,8
@@
(let* ((ping-program-options '("-c" "1"))
(buf (ping host))
proc)
(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))
(with-current-buffer buf
(accept-process-output (get-buffer-process (current-buffer)) 2)
(goto-char (point-min))
@@
-92,3
+91,8
@@
(gnus-group-save-newsrc)
(gnus-group-exit))
)
(gnus-group-save-newsrc)
(gnus-group-exit))
)
+
+;; Local Variables:
+;; no-byte-compile: t
+;; no-update-autoloads: t
+;; End: