From 933661709bc05df71c824b082c509a05be2f7d8c Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Fri, 21 Jun 2024 09:25:53 +0200 Subject: [PATCH] (tramp-test39-make-lock-file-name): Update --- test/lisp/net/tramp-tests.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) 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) -- 2.39.2