From: Michael Albinus Date: Mon, 17 Feb 2014 07:05:44 +0000 (+0100) Subject: * automated/tramp-tests.el (tramp-test28-shell-command): Perform X-Git-Tag: emacs-24.3.90~173^2^2~42^2~40 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2830e9b6b957642be4b6ac65e99620bac1fd4960;p=emacs.git * 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 888c31d9ad0..f21b2e16118 100644 --- a/test/ChangeLog +++ b/test/ChangeLog @@ -1,3 +1,8 @@ +2014-02-17 Michael Albinus + + * automated/tramp-tests.el (tramp-test28-shell-command): Perform + an initial `sit-for' prior the while loop. + 2014-02-16 Michael Albinus Sync with Tramp 2.2.9. diff --git a/test/automated/tramp-tests.el b/test/automated/tramp-tests.el index 4aac9768a22..f71f7ee239b 100644 --- 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)))