diff options
| author | Philipp Stephani <phst@google.com> | 2021-03-08 14:30:24 +0100 |
|---|---|---|
| committer | Philipp Stephani <phst@google.com> | 2021-03-08 14:30:24 +0100 |
| commit | f4452bb8140cb7485be0a529afc91476becb5d91 (patch) | |
| tree | 6832b96a12a5cf351c844bfad32958f7bf0a1826 /test/lisp/emacs-lisp | |
| parent | 432c1aaa80ce109250a93f50858a03ce3d01ca34 (diff) | |
| download | emacs-f4452bb8140cb7485be0a529afc91476becb5d91.tar.gz emacs-f4452bb8140cb7485be0a529afc91476becb5d91.tar.bz2 emacs-f4452bb8140cb7485be0a529afc91476becb5d91.zip | |
Fix structure of condition object in nested 'ert-fail'.
See the test 'ert-test-fail' for the expected structure.
* lisp/emacs-lisp/ert.el (ert--should-signal-hook): Condition list
should be (SYMBOL . DATA), not (SYMBOL DATA).
* test/lisp/emacs-lisp/ert-tests.el (ert-test-fail-inside-should): Fix
unit test.
Diffstat (limited to 'test/lisp/emacs-lisp')
| -rw-r--r-- | test/lisp/emacs-lisp/ert-tests.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test/lisp/emacs-lisp/ert-tests.el b/test/lisp/emacs-lisp/ert-tests.el index bdacb0832b3..5c9696105e9 100644 --- a/test/lisp/emacs-lisp/ert-tests.el +++ b/test/lisp/emacs-lisp/ert-tests.el @@ -814,7 +814,7 @@ This macro is used to test if macroexpansion in `should' works." :body (lambda () (should (integerp (ert-fail "Boo")))))))) (should (ert-test-failed-p result)) (should (equal (ert-test-failed-condition result) - '(ert-test-failed ("Boo")))))) + '(ert-test-failed "Boo"))))) (provide 'ert-tests) |