;;; 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>
;; 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:
(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))