mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

; Restore selector `member' accidentally drooped in ert rewrite.

Browse Source 
; `test/automated/ert.el' and `test/automated/ert-x.el' now run
; without errors.

* lisp/emacs-lisp/ert.el (ert--insert-human-readable-selector): Add
the `member' selector. This was accidentally dropped when code was
converted from `cl-typecase' (where `member' has a special meaning)
and `cl-ecase' (where it doesn't) to `pcase'.
This commit is contained in:
Anders Lindgren 2015-12-11 06:46:19 +01:00
parent d75849e937
commit 0284660f27
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/emacs-lisp/ert.el
View File

@ -1071,7 +1071,7 @@ contained in UNIVERSE."
(make-symbol "<unnamed test>")))
(`(,operator . ,operands)
(pcase operator
((or 'eql 'and 'not 'or)
((or 'member 'eql 'and 'not 'or)
`(,operator ,@(mapcar #'rec operands)))
((or 'tag 'satisfies)
selector))))))