Add test for Bug#41761
* test/lisp/simple-tests.el (simple-test-count-words-bug-41761): New test.
This commit is contained in:
parent
c560ba3036
commit
9c362e293c
1 changed files with 7 additions and 0 deletions
|
@ -38,6 +38,13 @@
|
|||
,@body
|
||||
(with-no-warnings (simple-test--buffer-substrings))))
|
||||
|
||||
|
||||
;;; `count-words'
|
||||
(ert-deftest simple-test-count-words-bug-41761 ()
|
||||
(with-temp-buffer
|
||||
(dotimes (i 10) (insert (propertize "test " 'field (cons nil nil))))
|
||||
(should (= (count-words (point-min) (point-max)) 10))))
|
||||
|
||||
|
||||
;;; `transpose-sexps'
|
||||
(defmacro simple-test--transpositions (&rest body)
|
||||
|
|
Loading…
Add table
Reference in a new issue