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 1ce9725..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
-;; Copyright (C) 2011-2012 Free Software Foundation, Inc.
+;; Copyright (C) 2011-2015 Free Software Foundation, Inc.
 
 ;; 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
-;; 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:
 
@@ -44,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))
@@ -92,3 +91,8 @@
     (gnus-group-save-newsrc)
     (gnus-group-exit))
 )
+
+;; Local Variables:
+;; no-byte-compile: t
+;; no-update-autoloads: t
+;; End: