Add test for Bug#41761

* test/lisp/simple-tests.el (simple-test-count-words-bug-41761):
New test.
This commit is contained in:
Stefan Kangas 2020-08-14 11:37:48 +02:00
parent c560ba3036
commit 9c362e293c

View file

@ -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)