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:
Lars Ingebrigtsen 2022-01-13 09:48:15 +01:00
parent d30fde6b0c
commit 9c31be6dc3
2 changed files with 14 additions and 6 deletions

View file

@ -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)