Commit | Line | Data |
---|---|---|
c4c205d0 CY |
1 | ;;; comint-testsuite.el |
2 | ||
ba318903 | 3 | ;; Copyright (C) 2010-2014 Free Software Foundation, Inc. |
c4c205d0 CY |
4 | |
5 | ;; This file is part of GNU Emacs. | |
6 | ||
7 | ;; GNU Emacs is free software: you can redistribute it and/or modify | |
8 | ;; it under the terms of the GNU General Public License as published by | |
9 | ;; the Free Software Foundation, either version 3 of the License, or | |
10 | ;; (at your option) any later version. | |
11 | ||
12 | ;; GNU Emacs is distributed in the hope that it will be useful, | |
13 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
14 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
15 | ;; GNU General Public License for more details. | |
16 | ||
17 | ;; You should have received a copy of the GNU General Public License | |
18 | ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. | |
19 | ||
20 | ;;; Commentary: | |
21 | ||
22 | ;; Tests for comint and related modes. | |
23 | ||
24 | ;;; Code: | |
25 | ||
26 | (require 'comint) | |
27 | (require 'ert) | |
28 | ||
29 | (defvar comint-testsuite-password-strings | |
30 | '("foo@example.net's password: " ;ssh | |
31 | "Password for foo@example.org: " ; kinit | |
32 | "Please enter the password for foo@example.org: " ; kinit | |
33 | "Kerberos password for devnull/root <at> GNU.ORG: " ; ksu | |
34 | "Enter passphrase: " ; ssh-add | |
35 | "Enter passphrase (empty for no passphrase): " ; ssh-keygen | |
36 | "Enter same passphrase again: " ; ssh-keygen | |
37 | "Passphrase for key root@GNU.ORG: " ; plink | |
38 | "[sudo] password for user:" ; Ubuntu sudo | |
39 | "Password (again):" | |
40 | "Enter password:") | |
41 | "List of strings that should match `comint-password-prompt-regexp'.") | |
42 | ||
43 | (ert-deftest comint-test-password-regexp () | |
44 | "Test `comint-password-prompt-regexp' against common password strings." | |
45 | (dolist (str comint-testsuite-password-strings) | |
46 | (should (string-match comint-password-prompt-regexp str)))) | |
47 | ||
48 | ;; Local Variables: | |
49 | ;; no-byte-compile: t | |
50 | ;; End: | |
51 | ||
52 | ;;; comint-testsuite.el ends here |