diff options
| author | Michael Albinus | 2014-04-25 12:35:01 +0200 |
|---|---|---|
| committer | Michael Albinus | 2014-04-25 12:35:01 +0200 |
| commit | 844465d6cac7c243e37e446067b1a2e06be293da (patch) | |
| tree | 5ed7f84e6b0cc77b981aea715b2c7e6f4b321ac0 | |
| parent | 402a211fd318d0aef8de6cb606e678d2ec64706d (diff) | |
| download | emacs-844465d6cac7c243e37e446067b1a2e06be293da.tar.gz emacs-844465d6cac7c243e37e446067b1a2e06be293da.zip | |
* automated/tramp-tests.el (top):
* automated/file-notify-tests.el (top): Do not disable interactive
passwords in batch mode.
(password-cache-expiry): Set to nil.
| -rw-r--r-- | test/ChangeLog | 7 | ||||
| -rw-r--r-- | test/automated/file-notify-tests.el | 13 | ||||
| -rw-r--r-- | test/automated/tramp-tests.el | 10 |
3 files changed, 11 insertions, 19 deletions
diff --git a/test/ChangeLog b/test/ChangeLog index 45844607d34..7d4e9d5e687 100644 --- a/test/ChangeLog +++ b/test/ChangeLog | |||
| @@ -1,3 +1,10 @@ | |||
| 1 | 2014-04-25 Michael Albinus <michael.albinus@gmx.de> | ||
| 2 | |||
| 3 | * automated/tramp-tests.el (top): | ||
| 4 | * automated/file-notify-tests.el (top): Do not disable interactive | ||
| 5 | passwords in batch mode. | ||
| 6 | (password-cache-expiry): Set to nil. | ||
| 7 | |||
| 1 | 2014-04-24 Michael Albinus <michael.albinus@gmx.de> | 8 | 2014-04-24 Michael Albinus <michael.albinus@gmx.de> |
| 2 | 9 | ||
| 3 | * automated/file-notify-tests.el | 10 | * automated/file-notify-tests.el |
diff --git a/test/automated/file-notify-tests.el b/test/automated/file-notify-tests.el index f3ad6dfbe26..d9a5b039216 100644 --- a/test/automated/file-notify-tests.el +++ b/test/automated/file-notify-tests.el | |||
| @@ -22,7 +22,7 @@ | |||
| 22 | ;; Some of the tests require access to a remote host files. Since | 22 | ;; Some of the tests require access to a remote host files. Since |
| 23 | ;; this could be problematic, a mock-up connection method "mock" is | 23 | ;; this could be problematic, a mock-up connection method "mock" is |
| 24 | ;; used. Emulating a remote connection, it simply calls "sh -i". | 24 | ;; used. Emulating a remote connection, it simply calls "sh -i". |
| 25 | ;; Tramp's file name handler still run, so this test is sufficient | 25 | ;; Tramp's file name handlers still run, so this test is sufficient |
| 26 | ;; except for connection establishing. | 26 | ;; except for connection establishing. |
| 27 | 27 | ||
| 28 | ;; If you want to test a real Tramp connection, set | 28 | ;; If you want to test a real Tramp connection, set |
| @@ -31,10 +31,6 @@ | |||
| 31 | ;; remote host, set this environment variable to "/dev/null" or | 31 | ;; remote host, set this environment variable to "/dev/null" or |
| 32 | ;; whatever is appropriate on your system. | 32 | ;; whatever is appropriate on your system. |
| 33 | 33 | ||
| 34 | ;; When running the tests in batch mode, it must NOT require an | ||
| 35 | ;; interactive password prompt unless the environment variable | ||
| 36 | ;; $REMOTE_ALLOW_PASSWORD is set. | ||
| 37 | |||
| 38 | ;; A whole test run can be performed calling the command `file-notify-test-all'. | 34 | ;; A whole test run can be performed calling the command `file-notify-test-all'. |
| 39 | 35 | ||
| 40 | ;;; Code: | 36 | ;;; Code: |
| @@ -64,13 +60,10 @@ | |||
| 64 | (defvar file-notify--test-results nil) | 60 | (defvar file-notify--test-results nil) |
| 65 | (defvar file-notify--test-event nil) | 61 | (defvar file-notify--test-event nil) |
| 66 | 62 | ||
| 67 | (setq tramp-verbose 0 | 63 | (setq password-cache-expiry nil |
| 64 | tramp-verbose 0 | ||
| 68 | tramp-message-show-message nil) | 65 | tramp-message-show-message nil) |
| 69 | 66 | ||
| 70 | ;; Disable interactive passwords in batch mode. | ||
| 71 | (when (and noninteractive (not (getenv "REMOTE_ALLOW_PASSWORD"))) | ||
| 72 | (defalias 'tramp-read-passwd 'ignore)) | ||
| 73 | |||
| 74 | ;; This shall happen on hydra only. | 67 | ;; This shall happen on hydra only. |
| 75 | (when (getenv "NIX_STORE") | 68 | (when (getenv "NIX_STORE") |
| 76 | (add-to-list 'tramp-remote-path 'tramp-own-remote-path)) | 69 | (add-to-list 'tramp-remote-path 'tramp-own-remote-path)) |
diff --git a/test/automated/tramp-tests.el b/test/automated/tramp-tests.el index 59a7c152a1a..2640ee9cef5 100644 --- a/test/automated/tramp-tests.el +++ b/test/automated/tramp-tests.el | |||
| @@ -24,7 +24,7 @@ | |||
| 24 | ;; Some of the tests require access to a remote host files. Since | 24 | ;; Some of the tests require access to a remote host files. Since |
| 25 | ;; this could be problematic, a mock-up connection method "mock" is | 25 | ;; this could be problematic, a mock-up connection method "mock" is |
| 26 | ;; used. Emulating a remote connection, it simply calls "sh -i". | 26 | ;; used. Emulating a remote connection, it simply calls "sh -i". |
| 27 | ;; Tramp's file name handler still run, so this test is sufficient | 27 | ;; Tramp's file name handlers still run, so this test is sufficient |
| 28 | ;; except for connection establishing. | 28 | ;; except for connection establishing. |
| 29 | 29 | ||
| 30 | ;; If you want to test a real Tramp connection, set | 30 | ;; If you want to test a real Tramp connection, set |
| @@ -33,10 +33,6 @@ | |||
| 33 | ;; remote host, set this environment variable to "/dev/null" or | 33 | ;; remote host, set this environment variable to "/dev/null" or |
| 34 | ;; whatever is appropriate on your system. | 34 | ;; whatever is appropriate on your system. |
| 35 | 35 | ||
| 36 | ;; When running the tests in batch mode, it must NOT require an | ||
| 37 | ;; interactive password prompt unless the environment variable | ||
| 38 | ;; $REMOTE_ALLOW_PASSWORD is set. | ||
| 39 | |||
| 40 | ;; A whole test run can be performed calling the command `tramp-test-all'. | 36 | ;; A whole test run can be performed calling the command `tramp-test-all'. |
| 41 | 37 | ||
| 42 | ;;; Code: | 38 | ;;; Code: |
| @@ -73,10 +69,6 @@ | |||
| 73 | tramp-copy-size-limit nil | 69 | tramp-copy-size-limit nil |
| 74 | tramp-message-show-message nil) | 70 | tramp-message-show-message nil) |
| 75 | 71 | ||
| 76 | ;; Disable interactive passwords in batch mode. | ||
| 77 | (when (and noninteractive (not (getenv "REMOTE_ALLOW_PASSWORD"))) | ||
| 78 | (defalias 'tramp-read-passwd 'ignore)) | ||
| 79 | |||
| 80 | ;; This shall happen on hydra only. | 72 | ;; This shall happen on hydra only. |
| 81 | (when (getenv "NIX_STORE") | 73 | (when (getenv "NIX_STORE") |
| 82 | (add-to-list 'tramp-remote-path 'tramp-own-remote-path)) | 74 | (add-to-list 'tramp-remote-path 'tramp-own-remote-path)) |