diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/automated/elisp-mode-tests.el | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/test/automated/elisp-mode-tests.el b/test/automated/elisp-mode-tests.el index 26f903dbd0c..bfecfe7dc6b 100644 --- a/test/automated/elisp-mode-tests.el +++ b/test/automated/elisp-mode-tests.el | |||
| @@ -84,7 +84,7 @@ | |||
| 84 | (should (member "bar" comps)) | 84 | (should (member "bar" comps)) |
| 85 | (should (member "baz" comps))))) | 85 | (should (member "baz" comps))))) |
| 86 | 86 | ||
| 87 | (ert-deftest completest-variables-in-let-bindings () | 87 | (ert-deftest elisp-completest-variables-in-let-bindings () |
| 88 | (dolist (text '("(let (ba" "(let* ((ba")) | 88 | (dolist (text '("(let (ba" "(let* ((ba")) |
| 89 | (with-temp-buffer | 89 | (with-temp-buffer |
| 90 | (emacs-lisp-mode) | 90 | (emacs-lisp-mode) |
| @@ -93,5 +93,13 @@ | |||
| 93 | (should (member "backup-inhibited" comps)) | 93 | (should (member "backup-inhibited" comps)) |
| 94 | (should-not (member "backup-buffer" comps)))))) | 94 | (should-not (member "backup-buffer" comps)))))) |
| 95 | 95 | ||
| 96 | (ert-deftest elisp-completes-functions-after-let-bindings () | ||
| 97 | (with-temp-buffer | ||
| 98 | (emacs-lisp-mode) | ||
| 99 | (insert "(let ((bar 1) (baz 2)) (ba") | ||
| 100 | (let ((comps (elisp--test-completions))) | ||
| 101 | (should (member "backup-buffer" comps)) | ||
| 102 | (should-not (member "backup-inhibited" comps))))) | ||
| 103 | |||
| 96 | (provide 'elisp-mode-tests) | 104 | (provide 'elisp-mode-tests) |
| 97 | ;;; elisp-mode-tests.el ends here | 105 | ;;; elisp-mode-tests.el ends here |