; Restore selector `member' accidentally drooped in ert rewrite.
; `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:
parent
d75849e937
commit
0284660f27
1 changed files with 1 additions and 1 deletions
|
@ -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))))))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue