diff options
| author | Noam Postavsky | 2018-06-29 20:15:10 -0400 |
|---|---|---|
| committer | Noam Postavsky | 2018-07-09 19:39:03 -0400 |
| commit | db3f7797809ed9de8dd92ce38bf34f768ddc64ad (patch) | |
| tree | ccfc8d8285342b080260527a26ec5fd52f3c26a9 | |
| parent | 90d95b000c37f7e85096716db96c4a940436f387 (diff) | |
| download | emacs-db3f7797809ed9de8dd92ce38bf34f768ddc64ad.tar.gz emacs-db3f7797809ed9de8dd92ce38bf34f768ddc64ad.zip | |
; Test for Bug#32014
* test/lisp/emacs-lisp/lisp-mode-tests.el
(lisp-indent-with-read-only-field): New test.
| -rw-r--r-- | test/lisp/emacs-lisp/lisp-mode-tests.el | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/test/lisp/emacs-lisp/lisp-mode-tests.el b/test/lisp/emacs-lisp/lisp-mode-tests.el index 0b5b0a40198..2ac0e5ce1d4 100644 --- a/test/lisp/emacs-lisp/lisp-mode-tests.el +++ b/test/lisp/emacs-lisp/lisp-mode-tests.el | |||
| @@ -224,6 +224,17 @@ Expected initialization file: `%s'\" | |||
| 224 | (comment-indent) | 224 | (comment-indent) |
| 225 | (should (equal (buffer-string) correct))))) | 225 | (should (equal (buffer-string) correct))))) |
| 226 | 226 | ||
| 227 | (ert-deftest lisp-indent-with-read-only-field () | ||
| 228 | "Test indentation on line with read-only field (Bug#32014)." | ||
| 229 | :expected-result :failed | ||
| 230 | (with-temp-buffer | ||
| 231 | (insert (propertize "prompt> " 'field 'output 'read-only t | ||
| 232 | 'rear-nonsticky t 'front-sticky '(read-only))) | ||
| 233 | (insert " foo") | ||
| 234 | (lisp-indent-line) | ||
| 235 | (should (equal (buffer-string) "prompt> foo")))) | ||
| 236 | |||
| 237 | |||
| 227 | 238 | ||
| 228 | (provide 'lisp-mode-tests) | 239 | (provide 'lisp-mode-tests) |
| 229 | ;;; lisp-mode-tests.el ends here | 240 | ;;; lisp-mode-tests.el ends here |