diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2022-04-27 20:15:07 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2022-04-27 20:15:07 +0200 |
| commit | 77f00c019ce48ad90cccd1ffe9981b33b5e82416 (patch) | |
| tree | 0e8698e956a404d1bfe0d56fad29100165636d9d /test/lisp/net | |
| parent | 53e8f00111084b4d98e81a57e025f637835e20a8 (diff) | |
| download | emacs-77f00c019ce48ad90cccd1ffe9981b33b5e82416.tar.gz emacs-77f00c019ce48ad90cccd1ffe9981b33b5e82416.tar.bz2 emacs-77f00c019ce48ad90cccd1ffe9981b33b5e82416.zip | |
Improve tramp-test46-read-password
* test/lisp/net/tramp-tests.el (tramp-test46-read-password): Add a
further check.
Diffstat (limited to 'test/lisp/net')
| -rw-r--r-- | test/lisp/net/tramp-tests.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el index b27b735eb57..d8709709457 100644 --- a/test/lisp/net/tramp-tests.el +++ b/test/lisp/net/tramp-tests.el @@ -7307,8 +7307,12 @@ process sentinels. They shall not disturb each other." :tags '(:expensive-test) (skip-unless (tramp--test-enabled)) (skip-unless (tramp--test-mock-p)) + ;; Not all read commands understand argument "-s" or "-p". + (skip-unless + (string-empty-p + (let ((shell-file-name "sh")) + (shell-command-to-string "read -s -p Password: pass")))) - (tramp--test-instrument-test-case 10 (let ((pass "secret") (mock-entry (copy-sequence (assoc "mock" tramp-methods))) mocked-input tramp-methods) @@ -7355,7 +7359,7 @@ process sentinels. They shall not disturb each other." "machine %s port mock password %s" (file-remote-p tramp-test-temporary-file-directory 'host) pass) (let ((auth-sources `(,netrc-file))) - (should (file-exists-p tramp-test-temporary-file-directory)))))))))) + (should (file-exists-p tramp-test-temporary-file-directory))))))))) ;; This test is inspired by Bug#29163. (ert-deftest tramp-test47-auto-load () |