aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMichael Albinus2017-08-17 11:35:41 +0200
committerMichael Albinus2017-08-17 11:35:41 +0200
commitddda5ae547d4c814482984cad3d350f65db082e3 (patch)
tree9c2c95287fdbb9bc601f83999208c568841f2be4
parent10a5a52f1d3d58297d926dc0b1f20bc0e423e408 (diff)
downloademacs-ddda5ae547d4c814482984cad3d350f65db082e3.tar.gz
emacs-ddda5ae547d4c814482984cad3d350f65db082e3.zip
Set `default-directory' for watchdog in tramp-test.el
* test/lisp/net/tramp-tests.el (tramp-test36-asynchronous-requests): Set `default-directory' for watchdog.
-rw-r--r--test/lisp/net/tramp-tests.el4
1 files changed, 3 insertions, 1 deletions
diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index 45cf95fcfe0..9d2598ac03e 100644
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -3821,7 +3821,9 @@ process sentinels. They shall not disturb each other."
3821 (with-timeout (300 (tramp--test-timeout-handler)) 3821 (with-timeout (300 (tramp--test-timeout-handler))
3822 (define-key special-event-map [sigusr1] 'tramp--test-timeout-handler) 3822 (define-key special-event-map [sigusr1] 'tramp--test-timeout-handler)
3823 (tramp--test-instrument-test-case (if (getenv "EMACS_HYDRA_CI") 10 0) 3823 (tramp--test-instrument-test-case (if (getenv "EMACS_HYDRA_CI") 10 0)
3824 (let* ((watchdog 3824 (let* (;; For the watchdog.
3825 (default-directory (expand-file-name temporary-file-directory))
3826 (watchdog
3825 (start-process 3827 (start-process
3826 "*watchdog*" nil shell-file-name shell-command-switch 3828 "*watchdog*" nil shell-file-name shell-command-switch
3827 (format "sleep 300; kill -USR1 %d" (emacs-pid)))) 3829 (format "sleep 300; kill -USR1 %d" (emacs-pid))))