mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-13 16:38:14 +00:00
Code Issues Releases Activity

* 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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2013-04-07 Nic Ferrier <nferrier@ferrier.me.uk>
* emacs-lisp/ert.el (should, should-not, should-error): Add edebug
declaration.
2013-04-07 Leo Liu <sdl.web@gmail.com>
* pcmpl-x.el: New file.
@ -31,8 +36,8 @@
2013-04-05 Dmitry Gutov <dgutov@yandex.ru>
* whitespace.el (whitespace-color-on, whitespace-color-off): Only
call `font-lock-fontify-buffer' when `font-lock-mode' is on.
* whitespace.el (whitespace-color-on, whitespace-color-off):
Only call `font-lock-fontify-buffer' when `font-lock-mode' is on.
2013-04-05 Jacek Chrząszcz <chrzaszcz@mimuw.edu.pl> (tiny change)

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)