Make ert explainers work on function aliases
* lisp/emacs-lisp/ert.el: New function. (ert--expand-should-1): Use it (bug#53178).
This commit is contained in:
parent
d30fde6b0c
commit
9c31be6dc3
2 changed files with 14 additions and 6 deletions
|
@ -881,6 +881,9 @@ This macro is used to test if macroexpansion in `should' works."
|
|||
"Check that `lexical-binding' in `ert-deftest' has the file value."
|
||||
(should (equal lexical-binding t)))
|
||||
|
||||
(ert-deftest ert-test-get-explainer ()
|
||||
(should (eq (ert--get-explainer 'string-equal) 'ert--explain-string-equal))
|
||||
(should (eq (ert--get-explainer 'string=) 'ert--explain-string-equal)))
|
||||
|
||||
(provide 'ert-tests)
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue