From: Eshel Yaron <me@eshelyaron.com>
Date: Fri, 21 Jun 2024 07:25:53 +0000 (+0200)
Subject: (tramp-test39-make-lock-file-name): Update
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=933661709bc05df71c824b082c509a05be2f7d8c;p=emacs.git

(tramp-test39-make-lock-file-name): Update
---

diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index 6f66352c453..ebf2a583795 100644
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -6556,19 +6556,22 @@ INPUT, if non-nil, is a string sent to the process."
 
 	    ;; Steal the file lock.
 	    (tramp-cleanup-connection tramp-test-vec 'keep-debug 'keep-password)
-	    (cl-letf (((symbol-function #'read-char) (lambda (&rest _args) ?s)))
+	    (cl-letf (((symbol-function #'read-multiple-choice)
+                       (lambda (&rest _args) '(?s))))
 	      (with-no-warnings (lock-file tmp-name1)))
 	    (should (eq (with-no-warnings (file-locked-p tmp-name1)) t))
 
 	    ;; Ignore the file lock.
 	    (tramp-cleanup-connection tramp-test-vec 'keep-debug 'keep-password)
-	    (cl-letf (((symbol-function #'read-char) (lambda (&rest _args) ?p)))
+	    (cl-letf (((symbol-function #'read-multiple-choice)
+                       (lambda (&rest _args) '(?p))))
 	      (with-no-warnings (lock-file tmp-name1)))
 	    (should (stringp (with-no-warnings (file-locked-p tmp-name1))))
 
 	    ;; Quit the file lock machinery.
 	    (tramp-cleanup-connection tramp-test-vec 'keep-debug 'keep-password)
-	    (cl-letf (((symbol-function #'read-char) (lambda (&rest _args) ?q)))
+	    (cl-letf (((symbol-function #'read-multiple-choice)
+                       (lambda (&rest _args) '(?q))))
 	      (with-no-warnings
 		(should-error
 		 (lock-file tmp-name1)