mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

; whitespace: Add test case for read-only buffers (bug#58082)

Browse source
This commit is contained in:
Richard Hansen 2022-09-26 02:12:41 -04:00 • committed by Lars Ingebrigtsen
parent 29b7d74000
commit fd653f5208
1 changed files with 19 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

21
test/lisp/whitespace-tests.el
View file

@ -27,7 +27,8 @@
(defmacro whitespace-tests--with-test-buffer (style &rest body)
"Run BODY in a buffer with `whitespace-mode' style STYLE.
The buffer is displayed in `selected-window', and
`noninteractive' is set to nil even in batch mode."
`noninteractive' is set to nil even in batch mode. If STYLE is
nil, `whitespace-mode' is left disabled."
(declare (debug ((style form) def-body))
(indent 1))
`(ert-with-test-buffer-selected ()
@ -37,7 +38,8 @@ The buffer is displayed in `selected-window', and
(let ((noninteractive nil)
(whitespace-style ,style))
(font-lock-mode 1)
(whitespace-mode 1)
,(when style
'(whitespace-mode 1))
,@body)))
(defun whitespace-tests--faceup (&rest lines)
@ -310,6 +312,21 @@ buffer's content."
"\t\n"
" »"))))
(ert-deftest whitespace-tests--empty-bob-eob-read-only-buffer ()
(whitespace-tests--with-test-buffer '()
(insert "\nx\n\n")
(should (equal (buffer-string) "\nx\n\n"))
(setq-local buffer-read-only t)
(goto-char 2)
(should (equal (line-number-at-pos) 2))
(should (equal (- (point) (line-beginning-position)) 0))
(let ((whitespace-style '(face empty)))
(whitespace-mode 1)
(should (whitespace-tests--faceup "«:whitespace-empty:\n"
"»x\n"
"«:whitespace-empty:\n"
"»")))))
(provide 'whitespace-tests)
;;; whitespace-tests.el ends here