master c95620ffbf8: (pcase-tests-quote-optimization): Fix warning

[Stefan Monnier]

branch: master
commit c95620ffbf8c2caebdb6a7aba7dbe9cd223fa2f4
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    (pcase-tests-quote-optimization): Fix warning
    
    * test/lisp/emacs-lisp/pcase-tests.el (pcase-tests-quote-optimization):
    Fix confusing code.
---
 test/lisp/emacs-lisp/pcase-tests.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/test/lisp/emacs-lisp/pcase-tests.el 
b/test/lisp/emacs-lisp/pcase-tests.el
index e777b71920c..5f2927d1aff 100644
--- a/test/lisp/emacs-lisp/pcase-tests.el
+++ b/test/lisp/emacs-lisp/pcase-tests.el
@@ -85,7 +85,7 @@
                                     (`(,_ . ,_) (BAR))
                                     ('(a b) (FOO))))))
   (let ((exp1 (macroexpand '(pcase EXP
-                              (`(`(,(or 'a1 'b1)) (FOO1)))
+                              (`((,(or 'a1 'b1))) (FOO1))
                               ('(c) (FOO2))
                               ('(d) (FOO3))))))
     (should (= 1 (with-temp-buffer (prin1 exp1 (current-buffer))