diff options
| author | Stefan Kangas | 2021-11-06 19:37:46 +0100 |
|---|---|---|
| committer | Stefan Kangas | 2021-11-06 19:39:46 +0100 |
| commit | 2893ea4e4c8b613aad3cf9c789c73a6a6674435c (patch) | |
| tree | b3d2fa81b47c4f1e55e8ec903330393f19d7f16c | |
| parent | b8b0e529a8f1dcea9a219ce8b2f66bb3e0be17bd (diff) | |
| download | emacs-2893ea4e4c8b613aad3cf9c789c73a6a6674435c.tar.gz emacs-2893ea4e4c8b613aad3cf9c789c73a6a6674435c.zip | |
Make substitute-command-keys regexp tests more strict
* test/lisp/help-tests.el (with-substitute-command-keys-test): Make
regexp tests more strict.
| -rw-r--r-- | test/lisp/help-tests.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test/lisp/help-tests.el b/test/lisp/help-tests.el index a2573c9c8b3..a331ec440a8 100644 --- a/test/lisp/help-tests.el +++ b/test/lisp/help-tests.el | |||
| @@ -65,7 +65,7 @@ | |||
| 65 | result)))) | 65 | result)))) |
| 66 | (test-re | 66 | (test-re |
| 67 | (lambda (orig regexp) | 67 | (lambda (orig regexp) |
| 68 | (should (string-match (concat "^" regexp "$") | 68 | (should (string-match (concat "\\`" regexp "\\'") |
| 69 | (substitute-command-keys orig)))))) | 69 | (substitute-command-keys orig)))))) |
| 70 | ,@body)) | 70 | ,@body)) |
| 71 | 71 | ||