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 /lisp/emacs-lisp/ert.el | |
| 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 'lisp/emacs-lisp/ert.el')
| -rw-r--r-- | lisp/emacs-lisp/ert.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/ert.el b/lisp/emacs-lisp/ert.el index 155b6a9d4e6..d22b2397745 100644 --- a/lisp/emacs-lisp/ert.el +++ b/lisp/emacs-lisp/ert.el @@ -261,7 +261,7 @@ DATA is displayed to the user and should state the reason for skipping." It should only be stopped when ran from inside ert--run-test-internal." (when (and (not (symbolp debugger)) ; only run on anonymous debugger (memq error-symbol '(ert-test-failed ert-test-skipped))) - (funcall debugger 'error (list error-symbol data)))) + (funcall debugger 'error (cons error-symbol data)))) (defun ert--special-operator-p (thing) "Return non-nil if THING is a symbol naming a special operator." |