procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/emacs-lisp/ert.el (should, should-not, should-error): Add edebug

Browse source 
declaration.
This commit is contained in:
Nic Ferrier 2013-04-07 14:56:28 -04:00 • committed by Stefan Monnier
parent 7d9f6883aa
commit e3e7b504b2
2 changed files with 10 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/emacs-lisp/ert.el
View file

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