2 files changed, 2 insertions, 1 deletions

diff --git a/test/lisp/emacs-lisp/pcase-tests.el b/test/lisp/emacs-lisp/pcase-tests.el
index 6b731699a67..e06c1e621c2 100644
--- a/test/lisp/emacs-lisp/pcase-tests.el
+++ b/test/lisp/emacs-lisp/pcase-tests.el
@@ -80,6 +80,7 @@
 (ert-deftest pcase-tests-quote-optimization ()
   ;; FIXME: We could/should also test that we get a corresponding
   ;; "shadowed branch" warning.
+  (require 'byte-opt) ;; FIXME: Needed for pcase to see that `consp' is `pure'.
   (should-not (pcase-tests-grep
                'FOO (macroexpand '(pcase EXP
                                     (`(,_ . ,_) (BAR))
diff --git a/test/lisp/progmodes/elisp-mode-tests.el b/test/lisp/progmodes/elisp-mode-tests.el
index 311d60dae18..8211347ba11 100644
--- a/test/lisp/progmodes/elisp-mode-tests.el
+++ b/test/lisp/progmodes/elisp-mode-tests.el
@@ -407,7 +407,7 @@ to (xref-elisp-test-descr-to-target xref)."
   ;; cl-defstruct location.
   (list
    (cons
-    (xref-make "(cl-defstruct (xref-elisp-location (:constructor xref-make-elisp-location)))"
+    (xref-make "(cl-defstruct xref-elisp-location (:constructor xref-make-elisp-location))"
                (xref-make-elisp-location
                 'xref-elisp-location 'define-type
                 (expand-file-name "../../../lisp/progmodes/elisp-mode.el" emacs-test-dir)))