[Emacs-diffs] trunk r116455: * automated/tramp-tests.el (tramp-test28-shell-command): Perform

[Michael Albinus]

------------------------------------------------------------
revno: 116455
revision-id: address@hidden
parent: address@hidden
committer: Michael Albinus <address@hidden>
branch nick: trunk
timestamp: Mon 2014-02-17 08:05:44 +0100
message:
  * automated/tramp-tests.el (tramp-test28-shell-command): Perform
  an initial `sit-for' prior the while loop.
modified:
  test/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-8588
  test/automated/tramp-tests.el  tramptests.el-20131105142319-d9zp3oprkpxj5v1e-1

=== modified file 'test/ChangeLog'
--- a/test/ChangeLog    2014-02-16 17:23:00 +0000
+++ b/test/ChangeLog    2014-02-17 07:05:44 +0000
@@ -1,3 +1,8 @@
+2014-02-17  Michael Albinus  <address@hidden>
+
+       * automated/tramp-tests.el (tramp-test28-shell-command): Perform
+       an initial `sit-for' prior the while loop.
+
 2014-02-16  Michael Albinus  <address@hidden>
 
        Sync with Tramp 2.2.9.

=== modified file 'test/automated/tramp-tests.el'
--- a/test/automated/tramp-tests.el     2014-02-16 17:23:00 +0000
+++ b/test/automated/tramp-tests.el     2014-02-17 07:05:44 +0000
@@ -1176,6 +1176,7 @@
          (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 @@
          (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)))