* automated/tramp-tests.el (tramp-test28-shell-command): Perform

an initial `sit-for' prior the while loop.

diff --git a/test/ChangeLog b/test/ChangeLog
index 888c31d9ad033df24dc234edc209578d007c262e..f21b2e16118884928ec062d872b4bbb830652f82 100644 (file)
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -1,3 +1,8 @@
+2014-02-17  Michael Albinus  <michael.albinus@gmx.de>
+
+       * automated/tramp-tests.el (tramp-test28-shell-command): Perform
+       an initial `sit-for' prior the while loop.
+
 2014-02-16  Michael Albinus  <michael.albinus@gmx.de>
 
        Sync with Tramp 2.2.9.

diff --git a/test/automated/tramp-tests.el b/test/automated/tramp-tests.el
index 4aac9768a22f31bcb963ce5d0409b78b51c0509d..f71f7ee239bfdac191b7154d7b758d31d625b283 100644 (file)
--- a/test/automated/tramp-tests.el
+++ b/test/automated/tramp-tests.el
@@ -1176,6 +1176,7 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
          (should (file-exists-p tmp-name))
           (async-shell-command
           (format "ls %s" (file-name-nondirectory tmp-name)) (current-buffer))
+         (sit-for 1 'nodisplay)
          (while (ignore-errors
                   (memq (process-status (get-buffer-process (current-buffer)))
                         '(run open)))
@@ -1193,6 +1194,7 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
          (process-send-string
           (get-buffer-process (current-buffer))
           (format "%s\n" (file-name-nondirectory tmp-name)))
+         (sit-for 1 'nodisplay)
          (while (ignore-errors
                   (memq (process-status (get-buffer-process (current-buffer)))
                         '(run open)))