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

* test/lisp/emacs-lisp/pcase-tests.el (pcase-tests-quote-optimization):
Fix confusing code.

(cherry picked from commit c95620ffbf8c2caebdb6a7aba7dbe9cd223fa2f4)

diff --git a/test/lisp/emacs-lisp/pcase-tests.el b/test/lisp/emacs-lisp/pcase-tests.el
index e777b71920c0d6f970ff149ebb34a4576ff783e6..5f2927d1aff2c30e1f70914c634a3eda79deb1af 100644 (file)
--- 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))