From: Anders Lindgren <andlind@gmail.com>
Date: Fri, 11 Dec 2015 05:46:19 +0000 (+0100)
Subject: ; Restore selector `member' accidentally drooped in ert rewrite.
X-Git-Tag: emacs-25.0.90~505
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0284660f272a51d17a6f67389a7fa92abf8dec7a;p=emacs.git

; 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'.
---

diff --git a/lisp/emacs-lisp/ert.el b/lisp/emacs-lisp/ert.el
index 470fd493661..02ae41b9c6b 100644
--- a/lisp/emacs-lisp/ert.el
+++ b/lisp/emacs-lisp/ert.el
@@ -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))))))