diff options
| author | Lars Ingebrigtsen | 2022-01-13 09:48:15 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2022-01-13 09:49:19 +0100 |
| commit | 9c31be6dc31f10efcfb8dc76053e8bf3f62eef2c (patch) | |
| tree | d7d7381ee7a9d74d355e8957e0b7334f6df48f28 /test | |
| parent | d30fde6b0ccc02eada1f43e0b4cc1873e42f14d2 (diff) | |
| download | emacs-9c31be6dc31f10efcfb8dc76053e8bf3f62eef2c.tar.gz emacs-9c31be6dc31f10efcfb8dc76053e8bf3f62eef2c.zip | |
Make ert explainers work on function aliases
* lisp/emacs-lisp/ert.el: New function.
(ert--expand-should-1): Use it (bug#53178).
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/emacs-lisp/ert-tests.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/test/lisp/emacs-lisp/ert-tests.el b/test/lisp/emacs-lisp/ert-tests.el index ac130644743..270cca1c2e7 100644 --- a/test/lisp/emacs-lisp/ert-tests.el +++ b/test/lisp/emacs-lisp/ert-tests.el | |||
| @@ -881,6 +881,9 @@ This macro is used to test if macroexpansion in `should' works." | |||
| 881 | "Check that `lexical-binding' in `ert-deftest' has the file value." | 881 | "Check that `lexical-binding' in `ert-deftest' has the file value." |
| 882 | (should (equal lexical-binding t))) | 882 | (should (equal lexical-binding t))) |
| 883 | 883 | ||
| 884 | (ert-deftest ert-test-get-explainer () | ||
| 885 | (should (eq (ert--get-explainer 'string-equal) 'ert--explain-string-equal)) | ||
| 886 | (should (eq (ert--get-explainer 'string=) 'ert--explain-string-equal))) | ||
| 884 | 887 | ||
| 885 | (provide 'ert-tests) | 888 | (provide 'ert-tests) |
| 886 | 889 | ||