diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/emacs-lisp/pcase-tests.el | 1 | ||||
| -rw-r--r-- | test/lisp/progmodes/elisp-mode-tests.el | 2 |
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 @@ | |||
| 80 | (ert-deftest pcase-tests-quote-optimization () | 80 | (ert-deftest pcase-tests-quote-optimization () |
| 81 | ;; FIXME: We could/should also test that we get a corresponding | 81 | ;; FIXME: We could/should also test that we get a corresponding |
| 82 | ;; "shadowed branch" warning. | 82 | ;; "shadowed branch" warning. |
| 83 | (require 'byte-opt) ;; FIXME: Needed for pcase to see that `consp' is `pure'. | ||
| 83 | (should-not (pcase-tests-grep | 84 | (should-not (pcase-tests-grep |
| 84 | 'FOO (macroexpand '(pcase EXP | 85 | 'FOO (macroexpand '(pcase EXP |
| 85 | (`(,_ . ,_) (BAR)) | 86 | (`(,_ . ,_) (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)." | |||
| 407 | ;; cl-defstruct location. | 407 | ;; cl-defstruct location. |
| 408 | (list | 408 | (list |
| 409 | (cons | 409 | (cons |
| 410 | (xref-make "(cl-defstruct (xref-elisp-location (:constructor xref-make-elisp-location)))" | 410 | (xref-make "(cl-defstruct xref-elisp-location (:constructor xref-make-elisp-location))" |
| 411 | (xref-make-elisp-location | 411 | (xref-make-elisp-location |
| 412 | 'xref-elisp-location 'define-type | 412 | 'xref-elisp-location 'define-type |
| 413 | (expand-file-name "../../../lisp/progmodes/elisp-mode.el" emacs-test-dir))) | 413 | (expand-file-name "../../../lisp/progmodes/elisp-mode.el" emacs-test-dir))) |