From 9c31be6dc31f10efcfb8dc76053e8bf3f62eef2c Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Thu, 13 Jan 2022 09:48:15 +0100 Subject: Make ert explainers work on function aliases * lisp/emacs-lisp/ert.el: New function. (ert--expand-should-1): Use it (bug#53178). --- test/lisp/emacs-lisp/ert-tests.el | 3 +++ 1 file changed, 3 insertions(+) (limited to 'test/lisp/emacs-lisp') 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." "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) -- cgit v1.2.3