From: Stefan Kangas <stefan@marxist.se>
Date: Thu, 18 Mar 2021 10:17:34 +0000 (+0100)
Subject: Add comint-password-prompt-regexp test for "zip -e ..."
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~18^2~3481
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=4d5ad8a16e1fe925dd3fa0993aabb2612a82622b;p=emacs.git

Add comint-password-prompt-regexp test for "zip -e ..."

* test/lisp/comint-tests.el (comint-testsuite-password-strings):
Add test for "zip -e ...".  (Bug#47209)
---

diff --git a/lisp/comint.el b/lisp/comint.el
index bb28db7614a..65072b01376 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -366,6 +366,8 @@ This variable is buffer-local."
 ;; OpenBSD doas prints "doas (user@host) password:".
 ;; See ert test `comint-test-password-regexp'.
 (defcustom comint-password-prompt-regexp
+  ;; When extending this, please also add a corresponding test where
+  ;; possible (see `comint-testsuite-password-strings').
   (concat
    "\\(^ *\\|"
    (regexp-opt
@@ -382,7 +384,7 @@ This variable is buffer-local."
    "\\(?: [[:alpha:]]+ .+\\)?[[:blank:]]*[:：៖][[:space:]]*\\'")
   "Regexp matching prompts for passwords in the inferior process.
 This is used by `comint-watch-for-password-prompt'."
-  :version "27.1"
+  :version "28.1"
   :type 'regexp
   :group 'comint)
 
diff --git a/test/lisp/comint-tests.el b/test/lisp/comint-tests.el
index de1bc548e18..8a9a41f452f 100644
--- a/test/lisp/comint-tests.el
+++ b/test/lisp/comint-tests.el
@@ -44,6 +44,7 @@
     "Password (again):"
     "Enter password:"
     "Enter Auth Password:" ; OpenVPN (Bug#35724)
+    "Verify password: "    ; zip -e zipfile.zip ... (Bug#47209)
     "Mot de Passe :" ; localized (Bug#29729)
     "Passwort:") ; localized
   "List of strings that should match `comint-password-prompt-regexp'.")