master 77f00c019c: Improve tramp-test46-read-password

[Michael Albinus]

branch: master
commit 77f00c019ce48ad90cccd1ffe9981b33b5e82416
Author: Michael Albinus <michael.albinus@gmx.de>
Commit: Michael Albinus <michael.albinus@gmx.de>

    Improve tramp-test46-read-password
    
    * test/lisp/net/tramp-tests.el (tramp-test46-read-password): Add a
    further check.
---
 test/lisp/net/tramp-tests.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index b27b735eb5..d870970945 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 ()