diff options
| author | Nic Ferrier <nferrier@ferrier.me.uk> | 2013-04-07 14:56:28 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-04-07 14:56:28 -0400 |
| commit | e3e7b504b2b0148e62ea444300a8fb389ef39a09 (patch) | |
| tree | 5fdd0bd1a6381c85fe90ef0134047bde1fdf5aef /lisp/emacs-lisp/ert.el | |
| parent | 7d9f6883aad738362a8321955b1c1f76e8f7aea1 (diff) | |
| download | emacs-e3e7b504b2b0148e62ea444300a8fb389ef39a09.tar.gz emacs-e3e7b504b2b0148e62ea444300a8fb389ef39a09.tar.bz2 emacs-e3e7b504b2b0148e62ea444300a8fb389ef39a09.zip | |
* lisp/emacs-lisp/ert.el (should, should-not, should-error): Add edebug
declaration.
Diffstat (limited to 'lisp/emacs-lisp/ert.el')
| -rw-r--r-- | lisp/emacs-lisp/ert.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/ert.el b/lisp/emacs-lisp/ert.el index 7df3acccbc9..a9c06b05028 100644 --- a/lisp/emacs-lisp/ert.el +++ b/lisp/emacs-lisp/ert.el @@ -464,6 +464,7 @@ FORM-DESCRIPTION-FORM before it has called INNER-FORM." "Evaluate FORM. If it returns nil, abort the current test as failed. Returns the value of FORM." + (declare (debug t))) (ert--expand-should `(should ,form) form (lambda (inner-form form-description-form _value-var) `(unless ,inner-form @@ -473,6 +474,7 @@ Returns the value of FORM." "Evaluate FORM. If it returns non-nil, abort the current test as failed. Returns nil." + (declare (debug t))) (ert--expand-should `(should-not ,form) form (lambda (inner-form form-description-form _value-var) `(unless (not ,inner-form) @@ -520,6 +522,7 @@ non-nil, the error matches TYPE if it is an element of TYPE. If the error matches, returns (ERROR-SYMBOL . DATA) from the error. If not, or if no error was signaled, abort the test as failed." + (declare (debug t)) (unless type (setq type ''error)) (ert--expand-should `(should-error ,form ,@keys) |